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

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

Определить когда курсор покинул ссылку в richedit [Delphi, Windows]

AndreyUT ©   (2008-01-22 22:46:00) 

Привет. Искал поиском, но не нашёл. Как же всё-так и определить? Я делаю компонент на основе richedit, и мне нужно опредеилить когда юзер навёл мышь на ссылку (это есть) и когда курсор её покинул.

---

AndreyUT   (2008-01-25 01:10:00) [1]

Спасибо! Работает как и хотелось!

---

Compiler   (2008-01-24 17:08:00) [2]

Попробуй вот
var
 Flag:Boolean=False;
function TForm1.RichEdit1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
begin
result:=False;
case msg.message of
WM_MOUSELEAVE: begin //Ушел с компонента
 if Flag Then
 Showmessage('Съехал');
end;
WM_MOUSEMOVE: begin
 case GetCursor of
   65581: Flag:=True; //Навел на ссылку
   65555: if Flag Then  begin //Ушел с ссылки, но остался на компоненте
      Flag:=False;
      Showmessage('Съехал');
   end;
   end;
  end;
 end;
end;

---

Наверх