Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c