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