|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Überschreib-Funktion von Zeichen im TEdit-Feld
24. Okt 2009, 20:07
Ginge das nicht auch so?
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1) + Key;
end;
Wobei man vielleicht vorher die Länge des enthaltenen Textes untersuchen sollte.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|