Ver Mensaje Individual
  #2  
Antiguo 31-07-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Necesitas poner la propiedad TabStop del RadioGroup en true.

Nota sin embargo que el RadioGroup no indica visualmente que tiene el foco por lo que parece que nadie tuviera el foco. Para poder colocar el foco en el primer item lo único que se me ocurre es que utilices el método SelectFirst del RadioGroup. No obstante hay dos problemas:

1. Este es un método protegido de manera que no puedes acceder a él directamente. Para hacerlo declara:

Código:
type
  TUPControl = class(TWinControl)
y usas el evento OnEnter del RadioGroup:

Código:
procedure TForm1.RadioGroup1Enter(Sender: TObject);
begin
  TUPControl(RadioGroup1).SelectFirst;
end;
2. Lo anterior no selecciona exactamente el primer item sino el que este marcado. Si no hay ninguno marcado entonces sí selecciona el primero.

// Saludos
Responder Con Cita