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:
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