Edit1 Löschen

[DeddyH]

Hallo und Willkommen in der DP ,

wenn Du den Text neu zuweist, kannst Du Dir das Clear auch sparen. Und ist die Methode auch dem Ereignis zugewiesen (im Objektinspektor kontrollieren)? Hast Du einmal einen Haltepunkt gesetzt, und wenn ja, wird dort auch angehalten?

[edit] Achso, jetzt habe ich das erst richtig verstanden. Entwerte einmal ungültige Zeichen, indem Du Key auf #0 setzt.

Delphi-Quellcode:

if not (Key in ['0'..'9']) then
  begin
    Key := #0;
    (Sender as TEdit).Text := '0';
  end;

[/edit]