Ver Mensaje Individual
  #1  
Antiguo 05-02-2011
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 16
microbiano Va por buen camino
ayuda con componte Tpagecontrols

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

Última edición por microbiano fecha: 05-02-2011 a las 00:36:17. Razón: complementar
Responder Con Cita