Überschreib-Funktion von Zeichen im TEdit-Feld

[Ginko]

Hallo gibt es beim Edit-Feld die Möglichkeit, dass wenn etwas hinein geschrieben wird nur überschrieben wird und nicht eingefügt wird?

[fkerber]

Hi!

Also das quasi immer das nächste Zeichen gelöscht wird und dann das aktuelle eingefügt wird?
Da gibt es doch eigentlich die Einf.-Taste für - vllt. lässt sich damit was machen?

Ansonsten "zu Fuß"
Wenn neues Zeichen kommt (onKeyDown/Press) zuerst ein Zeichen löschen, also Entf-Taste senden, dann das neue Zeichen durchlassen.


Grüße, Frederic

[Ginko]

Ja habe ich auch schon überlegt, werds mal testen danke.

[fkerber]

Hi!

Die Frage wäre, ob du nicht das drücken der Entf-Taste simulieren kannst...


Grüße, Frederic

[Ginko]

Hi ich habs mal so versucht:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  tmp := chr(Key);
  Key := 127;
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := tmp;
end;

klappt aber nicht....

[DeddyH]

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.

[Ginko]

Nein klappt leider nicht

[DeddyH]

Soll denn immer nur das eingegebene Zeichen im Edit stehen?

[fkerber]

Hi!

Nein, ich denke, er meint sowas.

Alter Inhalt:

AB|CDE - Cursor an der Stelle, wo der | ist


Eingabe von F - dann soll da stehen:

ABFDE



Grüße, Frederic

[DeddyH]

Ich weiß nicht, wie Du zu der Annahme kommst. Allerdings sehe ich außer editierten Beiträgen und "klappt nicht" nicht Verwertbares