OnKeyDown vor Editfeldern etc.

[Michael Habbe]

Probier mal das:

Delphi-Quellcode:

procedure TForm1.Edit78KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = 'a' then
    ShowMessage('blablupp');
  key := #0;
end;

Mit der Zuweisung verhinderst Du die Weitergabe des Keys.