so müsst das gehen, ich kann es nicht testen, weil ich alle Systemtöne abgeschaltet hab, und zu faul bin die jetzt extra anzuschalten.





procedure TForm1.EditSucheKeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then begin

key := #0;

// machwas

end;

Gruss anubis

Rechtschreibfehler sind geistiges Eigentum des Authors und dürfen ohne ausdrückliche Erlaubnis weder verändert oder kopiert werden.

geschrieben von Anubis , 11.10.2002, 09:34 Uhr , 18 mal gelesen