...die Enter Taste als Tabulator funktionieren lassen?

Autor: Fatih Ölçer

Kategorie: Oberfläche

{
  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;


 

printed from
www.swissdelphicenter.ch
developers knowledge base