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;

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