панель

[Ko$]

Как сделать чтобы при наведении на кнопку которая на панели панель не сворачивалась обратно

procedure TForm1.sPanel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sPanel1.Height:=30;
sSpeedButton1.Height:=30;
end;

procedure TForm1.WMMouseLeave(var msg: TMessage);
begin
 sPanel1.Height:=9;
 sSpeedButton1.Height:=9;
end;

[Lime]

К примеру проверять координаты мышки на предмет нахождения над кнопкой)
или-же создать аналогичные события для кнопки, MouseMove и WMLeave, так-же создать флажок ( AboveButtonX:boolean = false; ) при MouseMove изменять на true, при WMLeave на false. B событиях панельки проверять флажок и соответственно менять или не менять размеры панельки и кнопки.
надеюсь понятно обьяснил

[mihali4]

Сообщение от Ko$

Как сделать чтобы при наведении на кнопку которая на панели панель не сворачивалась обратно

А как вы собираетесь попасть мышкой на кнопку, не заходя на панель ???

[Ko$]

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

А как вы собираетесь попасть мышкой на кнопку, не заходя на панель ???

Нужно чтобы при наведении на кнопку панель так же разворачивалась как и при наведении на саму панель

[mihali4]

Прежде, чем попасть на кнопку, вы обязательно попадете на панель, поскольку кнопка лежит на панели.
Следовательно, попав на панель, развертывание уже произойдет...
Вообще, я не совсем понимаю, что вы хотите получить...
Попробуйте этот простенький вариант - может как раз это вам и нужно?

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//разворачиваем
Panel1.Height:=300;
Button1.Height:=30;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//сворачиваем
Panel1.Height:=150;
Button1.Height:=25;
end;

[Ko$]

mihali4 спасибо за сторание но мне нужно другое. Получается как в 1ой картинке, а надо как во второй!

[mihali4]

Господи, ну это уж совсем примитивно...
Добавьте к предложенному мной еще одну процедурку:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

И будет вам счастье

[Ko$]

mihali4 помогите 1)Как сделать: На форме есть панель, на панели кнопки, при нажатии на одну определённую из этих кнопок появлялась вторая панель прям на первой панели, на второй панели есть тоже кнопки. Как сделать чтобы при убирании курсора со второй панели она становилась Visible:=false. Я делаю но при наведении на кнопку на второй панели она закрывается так как щитает что при наведении курсора на кнопку на панели 2 она выходит за рамки самой панели 2 как сделать чтобы этого не происходило???

procedure TForm1.btn1Click(Sender: TObject);
begin
sPanel1.Visible:=True;
end;
 
 
procedure TForm1.sPanel1MouseLeave(Sender: TObject);
begin
sPanel1.Visible:=False;
end;

2)И ещё как сделать:у меня стоит панель при открытии формы она шириной 10, при наведении на панель она становится шириной 30. Как сделать программно чтобы при нажатии на кнопку она становилась просто шириной 30 без наведении на неё курсора (Нужно Panel1)

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Height:=30;
lbl1.Font.Size:=16;
lbl1.Top:=8;
lbl1.Left:=325;
sSpeedButton1.Top:=-1;
sSpeedButton2.Top:=-1;
sSpeedButton3.Top:=-1;
sSpeedButton4.Top:=-1;
sSpeedButton5.Top:=-1;
sSpeedButton6.Top:=-1;
sSpeedButton7.Top:=-1;
btn1.Top:=-1;
sPanel1.Top:=-1;
end;

//------------------------------------------------------------Чтобы панель сворачивалась при наведении курсора------------------
procedure TForm1.WMMouseLeave(var msg: TMessage);
begin
Panel1.Height:=10;
lbl1.Font.Size:=8;
lbl1.Top:=1;
lbl1.Left:=455;
sSpeedButton1.Top:=10;
sSpeedButton2.Top:=10;
sSpeedButton3.Top:=10;
sSpeedButton4.Top:=10;
sSpeedButton5.Top:=10;
sSpeedButton6.Top:=10;
sSpeedButton7.Top:=10;
btn1.Top:=10;
sPanel1.Top:=10;

end;