Wie herausfinden welche Zeile die erste sichtbare ist

[jonny]

Ich habe eine frage zu der TMemo

ich würde gerne wissen wie man herausfinden kann welche Zeile (Line) die erste sichtbare ist. Das heßt wenn ich scrolle verändert sich ja immer die erste sihtbare zeile und ich würde herausfinden wolle welche das nun ist.

[Minz]

ich glaub das ist ziemlich heavy!

Also ich würde es wie folgt versuchen:
1. einen Index der aktuellen Zeile mitführen
2. dann Scroll-Ereignisse abfangen und den Index entsprechend verändern
3. Über den Index auf Memo.Lines zugreifen und du hast den Text

[Christian S.]

Hallo!

Hiermit geht's:

Delphi-Quellcode:

i := SendMessage(Memo1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);

i enthält dann die Nummer.

MfG
Peter

[jonny]

Danke das hilft mir weiter

[Minz]

uff so enfach?!!!

[Jens Schumann]

Zitat:

Zitat von Minz

uff so enfach?!!!

bei allen Komponenten (TMemo, TListBox, TComboBox ...), die eigentlich Windows bereitstellt
gibt es mit hoher wahrscheinlich solch eine einfache Lösung mit Messages.