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