Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.038 c
1-1108642246
Cosinus
2005-02-17 15:10
2005.03.06
Вопрос по правильному использованию ComponentCount и MDIChildCoun


1-1108676633
NickKuz
2005-02-18 00:43
2005.03.06
сравнение двух близких цветов


1-1109078181
Aleks
2005-02-22 16:16
2005.03.06
как присвоить группе переменных группу данных


1-1108804186
ПроНыРа
2005-02-19 12:09
2005.03.06
ХР и Delphi


1-1108965228
Кир
2005-02-21 08:53
2005.03.06
TreeView разные ветки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский