Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
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
Comment