if Self.ActiveControl is TRadioGroup then //2006-02-25 Add by Qwang for TCustomMemo begin with (Self.ActiveControl as TCustomMemo) do if (Key = VK_UP) then Self.Perform(WM_NEXTDLGCTL, 1, 0) else if (Key = VK_DOWN) then Self.Perform(WM_NEXTDLGCTL, 0, 0); end
----------------------------------------------
-
if Self.ActiveControl is TRadioGroup then //2006-02-25 Add by Qwang for TCustomMemo begin with (Self.ActiveControl as TRadioGroup ) do if (Key = VK_UP) then Self.Perform(WM_NEXTDLGCTL, 1, 0) else if (Key = VK_DOWN) then Self.Perform(WM_NEXTDLGCTL, 0, 0); end
----------------------------------------------
-