tabsheet -DBGrid [D7, WinXP]
Fill © (2003-01-29 20:36:00)
Уважаемы мастера, есть такой вопрос: есть pagecontrol, в нем
13 tabsheet, на каждом tabsheet по одному DBGrid. Как сделать так,
чтобы например при переходе на tabsheet9, в
DBGrid9 активизировалась первая ячейка (onclick), и т.д?
Спасибо.
gsu (2003-01-29 21:55:00) [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;
Наверх 
ЧАТ |
Орешник |
|
