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

← →
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;

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

:))

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