Показать сообщение отдельно
  #1  
Старый 15.01.2016, 12:12
Gareth Gareth вне форума
Активный
 
Регистрация: 21.03.2013
Адрес: Приднестровье
Сообщения: 202
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Как правильно сделать?

Привет..

Вопрос в следующем:
Есть форма, которая прячется путем
Код:
form1.hide;
.
На форме таймер, в таймере код:
Код:
var P:TPoint;
...

  {Показывает форму, если курсор находится сверху слева}

 if (Mouse.CursorPos.X<1) and (Mouse.CursorPos.Y<1) then
     begin
      Form1.Show;
     end;


 {скрывает форму если кликнули   НЕ  в форму}
      if  GetAsyncKeyState(VK_LBUTTON)<> 0 then
     begin
       GetCursorPos(P);
       if (P.X > Form1.Left+form1.Width) or (P.y > form1.Top+ Form1.Height) or  (P.Y < Form1.Top) then
       begin
         Form1.Hide;
       end;
     end;
Программа умеет принимать на себя ярлыки (Drag&Drop).
Вся соль в том, что когда беру любой ярлык, неважно откуда, подвожу его в угол, форма появляется и сразу исчезает. Если убрать код проверки клика вне формы - всё получается как надо...

Как можно вылечить данный недуг? Спасибо заранее.
Ответить с цитированием