Abfangen Arrow Tasten - Aber WM_GetDlgCode kommt gar nicht

[Christian Seehase]

Moin Steamengine,

erst einmal herzlich willkommen hier in der Delhpi-PRAXiS.

Wie, das kommt nicht an?

Wenn ich mal Deinen Code für TOwnEdit per Copy&Paste verwende, und dann noch folgendes hinzufüge:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TOwnEdit.Create(self) do begin
    Parent := self;
    OnKeyDown := Edit1KeyDown;
  end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if KEY = VK_TAB then ShowMessage('TAB');
end;

Erhalte ich immer die Meldung 'TAB', wenn das dynamisch erzeugte Editfeld den Fokus hat, und ich Tab drücke.