TMemo: Zeilenindex der Cursorposition ermitteln

[Hawkeye219]

Hallo,

vielleicht hilft dir diese Funktion. Sie ermittelt die (0-basierte) Nummer der ersten sichtbaren Zeile in einem Memo:

Delphi-Quellcode:

function GetFirstVisibleLine (aMemo: TCustomMemo): Integer;
begin
  Result := aMemo.Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
end;

Gruß Hawkeye