Überschreib-Funktion von Zeichen im TEdit-Feld

[Ginko]

Nein bringt auch nix, ich denk nochmal drüber nach

Hab es, es ist doch einfacher als ich dachte trotzdem danke :

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  keybd_event(VK_DELETE, 0, 0, 0);
  keybd_event(VK_DELETE, 0, KEYEVENTF_KEYUP, 0);
end;

das wars schon...