cursor in bestimmte memozeile setzen

[markus lemcke]

hallo,

wie kann ich den textcursor in einem memo auf eine bestimte zeile SETZEN??

gruß

markus

[markus lemcke]

habe den befehl setcaretpos entdeckt, aber wie wende ich ihn an?

irgendweas sicher mit sendmessage, aber ich blicke es nicht ganz!

gruß

marku

[Markus Fuchs]

Hi Markus,<p>
habe etwas zusammengebastelt, ich hoffe, es hilft dir:
<pre><code>
procedure TForm1.GotoRow(Row: Integer);
var
i: Integer;
begin
if Row <= Memo1.Lines.Count then
begin
Memo1.SetFocus; // Gib dem Memo den Focus (nicht unbedingt nötig!)
Memo1.SelStart := 0; // Beginne in der obersten Zeile vor dem 1. Zeichen
for i := 1 to Row do SendMessage(Memo1.Handle, WM_KEYDOWN, 40, 0); // Springe i-mal in die nächste Zeile
end;
end;<br>
procedure TForm1.Button1Click(Sender: TObject);
begin
GotoRow(3); // Setze Cursor in 4. Zeile
end;
</code></pre><p>
Ist bestimmt nicht die non-plus-ultra Lösung, aber sie funktioniert! <p>
Gruß,<br>
Marku

[markus lemcke]

hi markus,

habe inzwischen was gefunden:

procedure TFrmMain.setcaretposy(edit : Trichedit;zeile:integer);<br>
begin<br>
edit.SelStart := edit.Perform(EM_LINEINDEX, zeile-1, 0);<br>
edit.SetFocus;<br>
end;<br>

gruß

marku

[Markus Fuchs]

Klar, meine Lösung ist halt mal wieder "von hinten durch die Brust in's Auge" <p>
Gruße,<br>
Marku

[markus lemcke]

macht nichts!!! manchmal ist man ja schon froh, wenn man überhaupt eine lösung findet

gruß

marku