На главную

Определить позицию каретки

Определить позицию каретки

ОГЛАВЛЕНИЕ    HOME  MAIL



Приведенная ниже программа определяет координаты курсора в 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;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz