Текущий архив: 2003.08.21;
Скачать: CL | DM;
Вниз
TPageControl Найти похожие ветки
← →
николай (2003-07-29 12:05) [0]Помогите пожайлуста!У меня существует такой компонент как TPageControl в нем несколько вкладок,на них несколько таблиц TTable1,TTable2 и т.д.Подскажите как зделать процедуру записи,чтоб был Edit для всех таблиц(вкладок)один,и чтоб запись добовлялась только в активную вкладку.
← →
KDS © (2003-07-29 12:37) [1]контролируй свойство TPageControl.ActivePage или ActivePageIndex
case PageControl.ActivePageIndex of
0: действие для первой вкладки
1: второй
2: третьей
end
← →
alex_bredin © (2003-07-29 13:07) [2]вынеси DBEdit за TPageControl и на OnChangePage(или что-то такое) меняй у него Datasource
← →
VAleksey © (2003-07-29 14:18) [3]:-))
Надо Timka (c) сюда :-))
Var MyCoolMegaTable: TTable;
Потом на закладочке в событии например:
procedure TForm1.TabSheet1Enter(Sender: TObject);
begin
// Пишем
MyCoolMegaTable := TableWichMustBeActiveOnThisePage;
end;
И только в одном месте программы пишем
....
// Разумеется тут лучще проверить, что MyCoolMegaTable
// Указывает на какую-либо таблицу
MyCoolMegaTable.Edit;
....
Страницы: 1 вся ветка
Текущий архив: 2003.08.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
