Скрыть/Показать панель

[UKRtortik]

Как при наведение на кнопку сделать panel1.visible:=true; и оставатся true пока мышка наведена либо на эту кнопку либо на панель?

[northener]

Сообщение от UKRtortik

Как при наведение на кнопку сделать panel1.visible:=true; и оставатся true пока мышка наведена либо на эту кнопку либо на панель?

"Либо на панель" никак. На кнопку в событии OnMouseEnter кнопки делать panel1.visible:=true; А в событии кнопки OnMouseLeave делать panel1.visible:=false;

[type_Oleg]

Для видимости/невидимости панели при наведении мыши на панель:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 Panel1.Visible:=(X>Panel1.Left)and(X<(Panel1.Left+Panel1.Width))
   and(Y>Panel1.Top)and(Y<(Panel1.Top+Panel1.Height));
end;

Для кнопки - аналогично.

[UKRtortik]

northener, это я знаю, но если с кноки мышку увести то панель пропадет а это не годится.

[UKRtortik]

ну что не кто не знает?

[type_Oleg]

Сообщение от UKRtortik

ну что не кто не знает?

А чем не устраивает #3 ?

[UKRtortik]

я не много не понял как этот код работает.

[type_Oleg]

Сообщение от UKRtortik

я не много не понял как этот код работает.

Ну, вставь в свой код, увидишь. Это обработчик собтия формы " движение мыши над формой ". Когда курсор - в пределах панели, то она будет видимая. Иначе - нет.

Тыкни на форму, тыкни на Events(События) - выбери OnMouseMove, скопируй мой код, вставь туда.

[northener]

Когда курсор - в пределах панели, то она будет видимая. Иначе - нет.

А как тогда возникнет OnMouseMove панели если панель не видна?

[type_Oleg]

Сообщение от northener

А как тогда возникнет OnMouseMove панели если панель не видна?

А это OnMouseMove - событие формы, а не панели.
Проверял, работает.