如何解决如何在另一个面板的右侧设置面板?
我想在模式“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 举报,一经查实,本站将立刻删除。