Текущий архив: 2005.03.06;
Скачать: CL | DM;
Вниз
мышка на форме... Найти похожие ветки
← →
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]спасибо это как раз то что мен нужно.
← →
Юрий Зотов © (2005-02-21 06:08) [6]> XfroSt (20.02.05 12:52)
А если делать правильно, то надо использовать сообщения ABM_xxx и функцию SHAppBarMessage.
← →
Knight © (2005-02-21 12:10) [7]
> [6] Юрий Зотов © (21.02.05 06:08)
> А если делать правильно, то надо использовать сообщения
> ABM_xxx и функцию SHAppBarMessage.
Спасибо, тоже запишу... едва ли пригодиться, но для общего развития, пусть будет :)
← →
Чапаев © (2005-02-21 12:53) [8]Когда-то через хук делал...
Страницы: 1 вся ветка
Текущий архив: 2005.03.06;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.043 c
