2012-03-02 · 知道合伙人软件行家
关注
展开全部
分别编写panel的MouseEnter和MouseLeave事件响应代码。
procedure TForm1.Panel3MouseEnter(Sender: TObject);
begin
Panel3.Height := 89;
end;
procedure TForm1.Panel3MouseLeave(Sender: TObject);
begin
Panel3.Height := 5;
end;
小提示:用panel1.visiable:=true/false不大行得通,因为隐藏后就不能响应了,所以只能在窗口大小上做文章。
procedure TForm1.Panel3MouseEnter(Sender: TObject);
begin
Panel3.Height := 89;
end;
procedure TForm1.Panel3MouseLeave(Sender: TObject);
begin
Panel3.Height := 5;
end;
小提示:用panel1.visiable:=true/false不大行得通,因为隐藏后就不能响应了,所以只能在窗口大小上做文章。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询