Buenos Dias, tengo un problema con el page control, tengo un page control con tres tabsheet el problema es que esos tabsheet muestran informacion en un dbgrid bien el usuario abre el form y necesito tener el foco en esos dbgrid bien se abre el form.
Bien yo hasta que agregaba dos tabshett no tenia ningun problema pero apartir que agregue el tercer tabshett me tira el siguiente error: Cannot focus a disabled or invisible window ; este error lo tira ni bien abro el form; el codigo es el siguiente adonde "creo" puede estar la falla...
Código Delphi
[-]
procedure TFrm.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
case TPageControl(Sender).TabIndex of
0: self.DBGrid.SetFocus;
1: self.DBGrid1.SetFocus;
2: self.DBGrid2.SetFocus;
end;
end;
Código Delphi
[-]
procedure TFrm.FormActivate(Sender: TObject);
var id: integer;
begin
if PageControl1.ActivePage = self.TabSheet1 then
begin
self.DbGrid.SetFocus;
end;
if PageControl1.ActivePage = self.TabSheet2 then
begin
self.DBGrid1.SetFocus;
end;
if self.PageControl1.ActivePage = self.TabSheet3 then
begin
self.DBGrid2.SetFocus;
end;
end;