Im OnKeyDown Taste abfangen

[turboPASCAL]

Zitat von Matze:

Hallo!

Im OnKeyPress kann man eine taste ja allgemein so abfangen:

Key := #0; da dort Key vom Typ Char ist. Im OnKeyDown ist es jedoch ein Word. Folgendes geht leider nicht:

Key := 0; Da passiert einfach nichts, der Text wird normal eingefügt. Wie löse ich das Problem?

Was spricht gegen OnKeyPress, bei einem Edit-Felt/Memo funzt das so: (habe kein SynEdit)

Delphi-Quellcode:

// OnKeyPress Edit1
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    #13: begin
           Edit1.Text := Edit1.Text + '
';
           Key := #0;
         end;
    #32: begin
           Edit1.Text := Edit1.Text +'';
           Key := #0;
         end;
    'a': begin
           Edit1.Text := Edit1.Text +'ä';
           Key := #0;
         end;
  end;
end;

...Man muss halt nur noch den verflixten Cursor richtig positionieren.