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

Содержание Назад Вперед

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий