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

tabsheet -DBGrid   Найти похожие ветки 

← →
Fill   (2003-01-29 20:36) [0]

Уважаемы мастера, есть такой вопрос: есть pagecontrol, в нем 13 tabsheet, на каждом tabsheet по одному DBGrid. Как сделать так, чтобы например при переходе на tabsheet9, в
DBGrid9 активизировалась первая ячейка (onclick), и т.д?
Спасибо.

---

← →
gsu ©   (2003-01-29 21:55) [1]

procedure TForm1.PageControl1Change(Sender: TObject);
var
i: integer;
begin
with PageControl1.ActivePage do
for i:=0 to ControlCount-1 do
begin
if Controls[i] is TDBGrid // или Controls[i] = ТвояDBGrid
then (Controls[i] as TDBGrid).OnCellClick(nil); // или др., н-р: .SetFocus;
end;
end;

---

Страницы: 1 вся ветка

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



Память: 0.44 MB
Время: 0.015 c