[Gareth]

Привет..

Вопрос в следующем:
Есть форма, которая прячется путем

Код:

1	form1.hide;

.
На форме таймер, в таймере код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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).
Вся соль в том, что когда беру любой ярлык, неважно откуда, подвожу его в угол, форма появляется и сразу исчезает. Если убрать код проверки клика вне формы - всё получается как надо...

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

[Alegun]

Есть понятие клиентской и неклиентской части формы, они не совпадают по размерам, последняя немного (на толщину рамки с трёх сторон и шапки сверху) больше, а в условии вычисления момента скрытия это видимо и не учитывается - клик идёт формально ПО форме, а фактически НЕ, да ещё и событие "захода" на форму генерится только один раз, а "сдвига" по рамке несколько, возможно нужно добавить флажок как индикатор прохождения этого "терминатора"

[Gareth]

Сообщение от Alegun

Есть понятие клиентской и неклиентской части формы, они не совпадают по размерам, последняя немного (на толщину рамки с трёх сторон и шапки сверху) больше, а в условии вычисления момента скрытия это видимо и не учитывается - клик идёт формально ПО форме, а фактически НЕ, да ещё и событие "захода" на форму генерится только один раз, а "сдвига" по рамке несколько, возможно нужно добавить флажок как индикатор прохождения этого "терминатора"

Либо я вас не понял, либо вы меня

Как проблему вижу я:
мне кажется, форма появляется и сразу исчезает из-за постоянного if GetAsyncKeyState(VK_LBUTTON)<> 0 then, так как в таймере 2 условия: на то что курсор в углу и то что кнопка зажата... А когда я пытаюсь добавить ярлык(путем drag&drop) эти условия срабатывают обе. От этого мигание формы (появление-скрытие)..
Не знаю как быть.. Обе проверки мне нужны, но как сделать что бы программа поняла, когда я пытаюсь перенести ярлык, а когда я просто ткнул мимо формы?

Есть ли способ проверки клика вне формы, без GetAsyncKeyState ? Это проверка зажата ли кнопка, а мне надо отследить именно клик, а не постоянное зажатое положение мыши.

[Alegun]

...Есть ли способ проверки клика вне формы...

Для этого есть API функция GetCapture, пример из drkb

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.FormDeactivate(Sender: TObject); begin ReleaseCapture; end;   procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If GetCapture = 0 then    SetCapture(Form1.Handle);   if PtInRect(Rect(Form1.Left,                   Form1.Top,                   Form1.Left + Form1.Width,                   Form1.Top + Form1.Height),                   ClientToScreen(Point(x, y))) then Form1.Caption := 'Мышка на форме' else Form1.Caption := 'Мышка за пределами формы'; end;

[Gareth]

Сообщение от Alegun

Для этого есть API функция GetCapture, пример из drkb

Код:

Спасибо! то что надо