| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TPageControl
николай © (2003-07-29 12:05:00)
Помогите пожайлуста!У меня существует такой компонент как TPageControl в нем несколько вкладок,на них несколько таблиц TTable1,TTable2 и т.д.Подскажите как зделать процедуру записи,чтоб был Edit для всех таблиц(вкладок)один,и чтоб запись добовлялась только в активную вкладку.
VAleksey (2003-07-29 14:18:00) [1]
:-))
Надо Timka (c) сюда :-))
Var MyCoolMegaTable: TTable;
Потом на закладочке в событии например:
procedure TForm1.TabSheet1Enter(Sender: TObject);
begin
// Пишем
MyCoolMegaTable := TableWichMustBeActiveOnThisePage;
end;
И только в одном месте программы пишем
....
// Разумеется тут лучще проверить, что MyCoolMegaTable
// Указывает на какую-либо таблицу
MyCoolMegaTable.Edit;
....
alex_bredin (2003-07-29 13:07:00) [2]
вынеси DBEdit за TPageControl и на OnChangePage(или что-то такое) меняй у него Datasource
KDS (2003-07-29 12:37:00) [3]
контролируй свойство TPageControl.ActivePage или ActivePageIndex
case PageControl.ActivePageIndex of
0: действие для первой вкладки
1: второй
2: третьей
end
| |
