Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Tmemo

Автор: klem4 9.03.2006 0:10

Искал, но так и не наешл, как узнать, на какой по счету строке в Memo устновлен курсор...

Спасибо.

Автор: volvo 9.03.2006 0:25

procedure TForm1.Button2Click(Sender: TObject);
var p: TPoint;
begin
  p := memo1.CaretPos;
  ShowMessage('cursor pos is: X = ' + inttostr(p.X + 1) +
    ' Y = ' + inttostr(p.Y + 1));
end;

Автор: klem4 9.03.2006 0:29

Спасибо cool.gif