Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Нужен совет, как можно сделать автоматич. появление-пропадание ..   Найти похожие ветки 

 
Dima1   (2003-10-24 19:41) [0]

панели (TPanel) на подобии как это сделано в винде с TaskBar или панели MS Offise. Т.е. чтобы она сама пряталась при уходе мышы, и появлялась при ее наведении.

Моя идея была такая.. Добавил события OnEnter, и OnExit в панель, написал их обработчики, они работают. Но! когда я навожу на кнопку, которая стоит на этой панели (с самой панели я не сходил), она как дура, начинает то появлятся, то исчезать, пока не уйдеш с кнопки снова на панель. Короче говоря, может какие есть идеи по этому поводу. А еще лучше, может что уже готовое есть. Помогите плиз.


 
clickmaker ©   (2003-10-24 20:34) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
FOldPanelProc:= Panel1.WindowProc;
Panel1.WindowProc := NewPanelProc;
end;

procedure TForm1.NewPanelProc(var Message: TMessage);
begin
case Message.Msg of
CM_MOUSEENTER: Panel1.Height := 41;
CM_MOUSELEAVE: Panel1.Height := 3;
end;
FOldPanelProc(Message);
end;


 
Yakudza ©   (2003-10-24 21:44) [2]

Панель дурой обозвал....

:))



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
14-41958
Vlad Oshin
2003-10-17 12:42
2003.11.13
А что, плохая шутка? - Продам презервативы


6-41796
Fixxxer
2003-09-16 00:41
2003.11.13
есть ли разница в скриптах?


1-41653
Endi
2003-10-25 16:52
2003.11.13
Как считать строки, прерывающиеся 0 байтом.


14-41977
Санёк
2003-10-19 16:20
2003.11.13
Уважаемые МАСТЕРА!


1-41194
KSergey
2003-11-02 10:48
2003.11.13
String-поле в Record и Dispose.