Как определить номер текущей строки в любом 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]

Содержание раздела