Советы по Delphi

         

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



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