リッチエディットで１行目のインデックス

意味不明なタイトルですいません、リッチエディットで現在表示されている一番上の行番号を得る方法です。EM_GETFIRSTVISIBLELINE メッセージを使用します。

■ リッチエディットで表示中の一行目のインデックスを調べる例

procedure TForm1.Button1Click(Sender: TObject); var intTop : integer; begin intTop := RichEdit1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); Label1.Caption := 'TOP=' + IntToStr(intTop + 1); end;