Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[ATSV]

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 45 then begin
    ShowMessage('');    // oder sonst irgendwas
  end;
end;

dann geht auch Shift + Einfg nicht mehr wenn du das meinst