Форум: "KOL";
Текущий архив: 2009.05.31;
Скачать: [xml.tar.bz2];
ВнизОпределить когда курсор покинул ссылку в 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 вся ветка
Форум: "KOL";
Текущий архив: 2009.05.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c