Foco en Page control

[valeria]

Usaba el form Active por que voy resaltando la fila en la que se encuentra el Mouse , si no ponia algo asi como que cuando cambia de TabShett quedaba congelado...igualmente aunque saque el formActive me sigue tirando este error...me parece que no estoy manejando bien el tema de page control y tab sheet,estoy haciendo mal el foco....

[[Caral]]

Hola
Hice un ejemplo con los mismos datos que tu, solo que con edits en vez de dbgrids y quitando el self, no me da ningun error.
Da la impresion de que el problema podria estar en la carga de los dbgrids.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
   if PageControl1.ActivePage = self.TabSheet1 then
 begin
   edit1.SetFocus;
 end;
 if PageControl1.ActivePage = self.TabSheet2 then
 begin
  edit2.SetFocus;
 end;
 if self.PageControl1.ActivePage = self.TabSheet3 then
 begin
  edit3.SetFocus;
 end;
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  case TPageControl(Sender).TabIndex of
  0: edit1.SetFocus;
  1: edit2.SetFocus;
  2: edit3.SetFocus;
end;
end;

Saludos

[ecfisa]

Hola Valeria, amigo Caral.

Estaba revisando el post, ya que una vez tratamos un tema relacionado aqui , y coincido totalmente con lo dicho por Caral. No logro que me salga ningún error... Aún dejando el innecesario 'Self'.

Saludos.