ayuda con componte Tpagecontrols

[microbiano]

bien resulta que tengo un compoente TpageControl con dos Ttabsheet de nombre

Ttabshhet1: Datos
Ttabshhet2: Buscar.

me gustaria que al pasarme de la opcion de datos, a la opcion de buscar se posicione en cierto control en este caso en un Tedit , y que cuando este en datos tambien se posicion en cierto control un TButton alguna sugerencia

lo intente ahcer de la siguiente manera pero no funciona

Código Delphi [-]
procedure TFcontrato.pgc_uniDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
 case TabIndex of
    0: 
       if (Self.rg_buscar.ItemIndex=-1) or (Self.rg_buscar.ItemIndex=0) then
        begin
          Self.Btn_guardar.SetFocus;
          Exit;
        end;
    1: 
        //Self.rg_buscar.ItemIndex:=-1;
       if (Self.rg_buscar.ItemIndex=-1) or (Self.rg_buscar.ItemIndex=0) then
        begin
            Self.rg_buscar.ItemIndex:=0;
            Self.txtnombrebuscar.SetFocus;
            Exit;
        end;
 end;
end;

alguna sugerencia.


de antemano muchas gracias

[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.

[microbiano]

Gracias me funciono de maravilla, jajajaja aveces es tan simple que nos lo hacemos tan complicado como nosotros queremos :-)