Tema: Evitar focus
Ver Mensaje Individual
  #7  
Antiguo 29-03-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Dexter182.

Es que cuando un TRadioButton se selecciona, pone su propiedad TabStop en True.

Una solución puede ser:
Código Delphi [-]
...
type
  TGroupBox = class(StdCtrls.TGroupBox)
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
  end;
  FormX = class(TForm)
    ...

implementation

procedure TGroupBox.CMMouseEnter(var Msg: TMessage);
var
  i: Integer;
begin
  for i:= 0 to ControlCount-1 do
    if Controls[i] is TRadioButton then
      TRadioButton(Controls[i]).TabStop:= False;
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita