Tabulator-Taste simulieren, um ins nächste Editfeld zu...

[toms]

Hallo,

Dieser Code ueberprueft auch, ob Shift + Tab gedruckt wird.
(um Fokus ins vorherige Control zu setzen)

Delphi-Quellcode:

  if Key = #13 then
  begin
    Key := #0;
    { check, ob SHIFT - Taste gehalten }
    if GetKeyState(VK_Shift) and $8000 <> 0 then
      PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
    else
      PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
  end;