im memo manuell bustaben Entfernen

[kingflo]

Hallo.
Frage bezieht sich auf Memo, richedit usw
Weiß jemand wie ich es manuell machen kann, das der nächste Buchstabe vor dem Coursor entfert wird?
Genauso wie das Ereignis der Entf Taste?

Wäre nett wenn mir das jemand sagen kann

[Gentleman]

Hi!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Text: String;
  i: Integer;
begin
  Text:= RichEdit1.Text;
  i:= RichEdit1.SelStart;
  Delete(Text, i + 1, 1);
  RichEdit1.Text:= Text;
  RichEdit1.SelStart:= i;
end;

So sollte es funktionieren.

[kingflo]

Hat gefunzt danke.

Hat mir nur leider nicht geholfen.

Denn ich habe das Problem, dass bei meiner Anwendung im SynEditor die entf Taste nicht reagiert.
Dann wollte ich manuell im OnKeyDown die Entf taste abfangen und das Ereignis manuell ablaufen lassen. Aber irgendwie reagiert die Entf taste da auch nicht passiert nämlich leider auch nichts.

[JasonDX]

im fall keypreview vom Forumlar auf true stellen
und ansonsten ne andere tastatur probieren ;)

[kingflo]

Bringt leider auch nichts siehe hier:
http://www.delphipraxis.net/internal...=327396#327396

[Luckie]

Bitte gib deinem Thread einen aussagekräftigeren Titel. "Manuel entfernen" kann sich auf alles beziehen.