ENTER em DBRadioGroup

Delphi - Pressionar ENTER em DBRadioGroup

    Para o ENTER funcionar num DBRadioGroup é preciso setar

    a propriedade KeyPreview = True no Form, e no evento OnKeyPress

    usar o código abaixo:

   if Key = #13 then

   begin

      if (Self.ActiveControl.ClassName = 'TGroupButton') then

      begin

         Key := #0;

         Perform(WM_NEXTDLGCTL, 0, 0);

      end;

   end;