Как? Клавиша 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;
|