Советы по Delphi

         

Перемещение по Memo


    procedure MemoCursorTo(Memo:TMemo; MemoLine, MemoCol: Integer);
begin
Memo.SelStart := SendMessage (Memo.Handle, EM_LINEINDEX, MemoLine, 0) + MemoCol - 1; end;

[001562]



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