Советы по Delphi


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


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

[001562]




- Начало -  - Назад -  - Вперед -