Cursor an Textanfang von RichEdit setzen

[Gast]

Hallo,

wenn ich in einem RichEdit die 'Enter'-Taste drücke, wird der darin enthaltene Text gespeichert und das Feld gelöscht. (.Clear oder .Text:='')

Aber der Cursor steht dann immer in der zweiten Zeile... was natürlich beim erneuten drücken von Enter eine leere Zeile voranstellt! :evil:

Wie kann ich das verhindern? Mit .Perform(?) vielleicht?


Danke... :D

[Stanlay Hanks]

Hi! Vielleicht hilft dir ja dieser Thread hier weiter. RichEdit

Man liest sich, Stanlay

[Gast]

Nein... nicht wirklich! :?

Der Cursor steht trotzdem in der zweiten Zeile.

[Stanlay Hanks]

Tja...tut mir leid.
Aber ich bin sicher hier im Forum gibts entweder Beiträge dazu, oder aber Leute, die wissen, wie das geht! :wink:

Viel Glück noch. Man liest sich, Stanlay :hi:

[Gast]

Ich hatte zwar vorher schon im Forum gesucht, aber - typisch - die Antwort findet man immer erst hinterher! :wink:

Die Antwort aus diesem Thread habe ich mir mal ein bisschen zurechtgebastelt:

RichEdit OnKeyPress:

Delphi-Quellcode:

PostMessage(richedit.Handle,WM_KEYDOWN,VK_BACk,0);
PostMessage(richedit.Handle,WM_KEYUP,VK_BACk,0);

Mit SendMessage oder einzeln klappt's nicht...
Entfernt aber nur die eine Zeile!

mfg