问题描述
我想在模式“Panel2
”的右侧设置一个“Panel3
”,当“Panel2
”隐藏“Panel3
”时,“{{ 1}}" 仍然可见以再次显示 "Panel2
"。到目前为止,我所拥有的只是:
Panel3
“>>>”是“procedure TForm1.FormCreate(Sender: TObject);
begin
Panel2.Parent := Self;
Panel2.Anchors := [akLeft,akTop,akBottom];
Panel2.Caption := '>>>';
Panel2.ParentBackground := False;
Panel2.SetBounds(0,Panel1.Height,30,20);
Panel3.Parent := Self;
Panel3.Anchors := [akLeft,akBottom];
Panel3.Caption := '';
Panel3.Color := $0000F9FF;
Panel3.ParentBackground := False;
Panel3.Visible := False;
Panel3.SetBounds(0,Panel1.Height + Panel2.Height,100,ClientHeight);
end;
procedure TForm1.Panel2Click(Sender: TObject);
begin
if Panel2.Caption = '>>>' then
begin
AnimateWindow(Panel3.Handle,150,AW_ACTIVATE or AW_SLIDE or AW_HOR_POSITIVE);
Panel2.Caption := '<<<';
end
else if Panel2.Caption = '<<<' then
begin
AnimateWindow(Panel3.Handle,AW_HIDE or AW_SLIDE or AW_HOR_NEGATIVE);
Panel2.Caption := '>>>';
end;
end;
”,黄色是“Panel2
”。
我期待像 Team Viewer 的“箭头按钮”那样隐藏和显示工具栏的效果
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)