In TMemo zu bestimmter Line Scrollen?

[DeddyH]

Solange die anzuscrollende Zeile hinter der aktuellen Caretposition liegt, geht das bei mir in einem kleinen Testprojekt sehr wohl.

[edit] So klappt es anscheinend:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
const TEXTTOSEARCH = 'Suchtext';
var WantedLine, StringPos, CurrentPos: integer;
begin
  //aktuelle Cursorposition merken
  CurrentPos := Memo1.SelStart;
  //Cursor auf Textanfang
  Memo1.SelStart := 0;
  //Zeile des Suchtextes ermitteln
  StringPos := Pos(TEXTTOSEARCH,Memo1.Text) - 1;
  WantedLine :=  SendMessage(Memo1.Handle,EM_LINEFROMCHAR,StringPos,0);
  //jetzt dorthin scrollen
  SendMessage(Memo1.Handle,EM_LINESCROLL,0,WantedLine);
  //und Cursor wieder zurücksetzen
  Memo1.SelStart := CurrentPos;
end;

[/edit]