如何知道Tmemo或TRichEdit控件的第一个可见行?

Question

  ShowMessage(Memo1.Lines.Strings[0]);

Answer 1

  ShowMessage(RichEdit1.Lines.Strings[0]);

Answer 2

Memo1.Lines.Strings[0]就是Ｍｅｍｏ的第一行～～
RichEdit1.Lines.Strings[0]就是ＲｉｃｈＥｄｉｔ的第一行～～

Answer 3

 
  ShowMessage(Memo1.Lines.Strings[0]);  

Answer 4

面的函数将返回控件中显示的第一行的行号。 
Function GetFirstVisableLine(CTextBox As TextBox) As Long 
　　GetFirstVisableLine = SendMessageBynum(CTextBox.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0) 
End Function 

Answer 5

刚才的那个是ＶＢ的～～呵呵～～procedure TForm1.Button4Click(Sender: TObject);
var
  MemoIndex:Integer;
begin
  MemoIndex := SendMessage(Memo1.Handle,EM_GETFIRSTVISIBLELINE,0,0);
  ShowMessage(Memo1.Lines.Strings[MemoIndex]);
end;procedure TForm1.Button5Click(Sender: TObject);
var
  RichEditIndex:Integer;
begin
  RichEditIndex := SendMessage(RichEdit1.Handle,EM_GETFIRSTVISIBLELINE,0,0);
  ShowMessage(RichEdit1.Lines.Strings[RichEditIndex]);
end;下面的没有问题的～～我试过了～～看我这么辛苦的回答你的问题～～还不加分？？哈哈～～