Tedit, vorhandenen Text überchreiben

[teebee]

Einen Overwrite-Modus gibt es bei einem Edit-Control IMHO nicht. Folgendes funktioniert allerdings: (Hoffe, ich habe Dein Problem richtig verstanden...)

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var temp: String;
    sel: Integer;
begin
 If (Ord(Key)>31) And (Edit1.SelLength=0) Then Begin
  temp := Edit1.Text;
  sel := Edit1.SelStart;
  Delete(temp,sel+1,1);
  Edit1.Text := temp;
  Edit1.SelStart := sel;
 End;
end;

Nur die Abgrenzung der gültigen Zeichen muss noch schöner gemacht werden, dazu gibt es aber haufenweise Kram im Forum.

Gruß, teebee

[orion3000]

Hallo teebee,
genau das habe ich gesucht!

Danke für die schnelle Hilfe, war schon am verzweifeln.


Gruß
Orion3000