Как? Клавиша ENTER вместо клавиши TAB II
Установите свойство KeyPreview формы в True и используйте следующий обработчик события OnKeyPress.
|
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); end; end; |
