Evitar focus

[ecfisa]

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.