Работа клавиши Enter как Tab

Советы » Клавиши » Работа клавиши Enter как Tab

{ 
  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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com