ayuda con componte Tpagecontrols

[ecfisa]

Hola microbiano.

Podés aprovechar el evento OnShow de los TabSheets.

Ejemplo:

Código Delphi [-]

procedure TForm1.TabSheetDatosShow(Sender: TObject);
begin
  Button1.SetFocus; // Foco sobre el TButton
end;

procedure TForm1.TabSheetBuscarShow(Sender: TObject);
begin
  Edit2.SetFocus;    // Foco sobre el TEdit
end;

Un saludo.