@ NickelM
Hallo und vielen Dank für Deine Mühe. So weit war ich allerdings auch schon - diese "Zugabe" ist aber von Font.Size abhängig und somit nicht praktikabel.
Aber ich habe jetzt eine Möglichkeit gefunden:
Delphi-Quellcode:
Repeat
SendMessage(Memo1.Handle,WM_KEYDOWN,VK_UP,0);
Until Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0 , LongInt(@R))= 0;
Damit klappt's im Moment perfekt. Ich hoffe, die Lösung ist nicht allzu abwegig.
Gruß Jürgen