Позиция курсора в TRichEdit :: Статьи по Delphi - Iguana Software

This version of the page http://igp.org.ua/articles/a165/ (0.0.0.0) stored by archive.org.ua. It represents a snapshot of the page as of 2007-02-18. The original page over time could change.

Позиция курсора в TRichEdit :: Статьи по Delphi - Iguana Software - IGP.ORG.UA

Поиск по базе статей :

Изменено минимальное разрешение сайта на 1024x768
Подробнее...

Вспоминаем старый добрый DOS и времена 80-х! ;)
Подробнее...

Рекомендуем книгу!

Orig:http://www.bambook.com/book1/images/lenah21826.jpg

Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и NET

Книга является справочным пособием по языку Delphi в многоязыковой среде объектно-ориентированного программирования Delphi 2005 и Delphi 2006. Книга рассчитана на тех, кто разрабатывает традиционные приложения Win32 и на тех, кто начинает осваивать платфо...

Procedure TForm1.GetPosition(Sender: TRichEdit);
var

iX,iY : Integer;

TheRichEdit : TRichEdit;

begin

iX := 0; iY := 0;

TheRichEdit := TRichEdit(Sender);

iY := SendMessage(TheRichEdit.Handle, EM_LINEFROMCHAR, TheRichEdit.SelStart,

0);

iX := TheRichEdit.SelStart - SendMessage(TheRichEdit.Handle, EM_LINEINDEX,

iY, 0);

Panel1.Caption := IntToStr(iY + 1) + ':' + IntToStr(iX + 1) ;

end;

procedure TForm1.RichEditMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

GetPosition(RichEdit);

end;

procedure TForm1.RichEditKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

GetPosition(RichEdit);

end;