Работа клавиши Enter как TabDelphi , ОС и Железо , КлавишиРабота клавиши Enter как Tab
Оформил: DeeCo { This code gives the key the same habbit as the key to change focus between Controls. Mit diesem Code kann man sich mit der Enter Taste zwischen mehreren Textfeldern bewegen.(anstatt nur mit der Tabulatortaste) } // Form1.KeyPreview := True ! procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Shift) and $8000 <> 0 then PostMessage(Handle, WM_NEXTDLGCTL, 1, 0) else PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); end; end; Статья Работа клавиши Enter как Tab раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |