Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c