Перемещение по Memo
procedure MemoCursorTo(Memo:TMemo; MemoLine, MemoCol: Integer); begin Memo.SelStart := SendMessage (Memo.Handle, EM_LINEINDEX, MemoLine, 0) + MemoCol - 1; end; |
[001562]
procedure MemoCursorTo(Memo:TMemo; MemoLine, MemoCol: Integer); begin Memo.SelStart := SendMessage (Memo.Handle, EM_LINEINDEX, MemoLine, 0) + MemoCol - 1; end; |
[001562]