мышка на форме...

← →
XfroSt (2005-02-20 12:52) [0]

Вот потребовалось сделать такую форму по типу панели быстрого запуска windows. Прилепил ее к границе экрана. Поставил borderstyle в bsNone. Добавил вот такой код :
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.Width := 60 else Form1.Width := 5; end;
Но что то не работает. Т.е. вообще мышка неотслеживается на форме.
Что делать?
Может можно как то по другому скрывать и открывать форму при наведении мышки?

← →
debuger © (2005-02-20 16:58) [1]

Я раньше считал себя программистом, но ваш вопрос очень смутно понял(возможно не только я). Переформулируйте его пояснее, может ответов будет побольше.

← →
Knight © (2005-02-20 19:13) [2]

> XfroSt (20.02.05 12:52)

Название травы в студию... %)))

← →
XfroSt (2005-02-20 21:09) [3]

Мне наджо сделать приложение по типу панели быстрого запуска Windows (Что было сбоку маленькой линией а когда мышку наводишь показывалось приложение). Вот я и думаю как это сделать попробовал отслеживать положение мышки на форме и от этого менять ее ширину - получилась гадость(Кнопки срабатывают тока на второй клик)...
Вопрос: как это сделать чтотбы контролы нормально функционировали.?

← →
Knight © (2005-02-20 23:19) [4]

Самое простое, это по таймеру отслеживать положение мыши, если она упирается в нужный край окна, показывать панель... тогда, вообще, можешь её спрятать, даже полоска будет не нужна... или эхота заморочек, то обрати внимание на WM_MOUSEHOVER, WM_MOUSELEAVE...

← →
XfroSt (2005-02-21 02:03) [5]

спасибо это как раз то что мен нужно.

> XfroSt (20.02.05 12:52)

А если делать правильно, то надо использовать сообщения ABM_xxx и функцию SHAppBarMessage.

> [6] Юрий Зотов © (21.02.05 06:08)
> А если делать правильно, то надо использовать сообщения
> ABM_xxx и функцию SHAppBarMessage.

Спасибо, тоже запишу... едва ли пригодиться, но для общего развития, пусть будет :)

Когда-то через хук делал...

мышка на форме... Найти похожие ветки