Как определить номер текущей строки в любом edit-компоненте?
Своим опытом делится Олег Кулабухов:
Посыл сообщения WM_COPY компоненту активного окна заставит его выполнить требуемые действия.
|
procedure TForm1.Button1Click(Sender: TObject); var LineNumber : integer; begin LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0); ShowMessage(IntToStr(LineNumber)); end; |
[001884]
