Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.31;
Скачать: CL | DM;

Вниз

Определить когда курсор покинул ссылку в richedit   Найти похожие ветки 

 
AndreyUT   (2008-01-22 22:46) [0]

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


 
Compiler ©   (2008-01-24 17:08) [1]

Попробуй вот
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;


 
AndreyUT   (2008-01-25 01:10) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2009.05.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
15-1237743773
Коммуноцентрист1
2009-03-22 20:42
2009.05.31
Зачм так положены трубы?


2-1237214993
Alex354
2009-03-16 17:49
2009.05.31
Печатать изображение без учёта границ непечатаемых полей


3-1222062150
Юрий Катунов
2008-09-22 09:42
2009.05.31
Сортировка в DBGrid


2-1240165745
daxter
2009-04-19 22:29
2009.05.31
Помогите с indy 9


2-1239704891
Franzy
2009-04-14 14:28
2009.05.31
Raise