Мир Delphi
	Все самое интерресное что найдено в интернете о Delphi: компоненты, исходники программ, новые алгоритмы и решения.

Алгоритмы и решения / Мышь (1) / Определить позицию курсора

Приведенная ниже программа определяет координаты курсора в Memo. Этот же способ можно использовать и для RichEdit.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  row: integer;
begin
  row := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  Label1.Caption := 'x=' + IntToStr(Memo1.SelStart –
  Memo1.Perform(EM_LINEINDEX, row, 0) + 1);
  Label2.Caption := 'y=' + IntToStr(row + 1);
end;