| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Определение строчки в RichEdit [D7, XP]

Alex_C ©   (2005-12-13 08:49:00) 

Дано RichEdit. Как в событии MouseMove по координатам мыши определить, над какой строчкой RichEdit'а (в смысле содержание этой строки) находиться мышь?

---

Alec_C   (2005-12-13 13:23:00) [1]

То alles:этот метод я конечно знаю, но в случае с MouseMove он не работает. Он работаем в случае MouseDown - EM_LINEFROMCHAR - сначали символ нужно выделить (что приосходит при нажатии на кнопку мыши)
То begin...end :Огромное спасибо! Так все работает отлично!
Кстати, думается мне что данный случай следует довавить во все факи к случаю, описанному alles.

---

begin...end   (2005-12-13 12:58:00) [2]

> Alex_C ©   (13.12.05 08:49)

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 P: TPoint;
 Line: Integer;
begin
 P := Point(X, Y);
 with (Sender as TRichEdit) do
   Line := Perform(EM_LINEFROMCHAR, Perform(EM_CHARFROMPOS, 0, Integer(@P)), 0);
 Caption := IntToStr(Line)
end

---

alles   (2005-12-13 12:28:00) [3]

/*Kuliba 2000*/
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;

---

Наверх