Цитата:
|
Сообщение от Oreon
...правда надеялся, что мне ткнут в чем моя ошибка и заработает событие формы  |
А что здесь тыкать, когда это событие и так работает? Вот пример в подтверждение
Код:
// В секции type формы
procedure frmMouseEnter(var AMsg: TMessage); message CM_MOUSEENTER;
procedure frmMouseLeave(var AMsg: TMessage); message CM_MOUSELEAVE;
...
var
flg: boolean;
procedure TForm1.frmMouseEnter(var AMsg: TMessage);
begin
flg:= true;
// срабатывает когда мышка на форме
Refresh;
end;
procedure TForm1.frmMouseLeave(var AMsg: TMessage);
begin
flg:= false;
// срабатывает когда мышка ушла с формы
Refresh;
end;// Drkb: 01574
отслеживайте состояние flg, если он в true, то мышка на форме, если в false, то ушла за пределы, вот и всё.