如何定位TOOLBAR2:我在一个COOLBAR上放了两个TOOLBAR,其中用TOOLBAR1上的toolBUTTON控制TOOLBAR2的VISIBLE属性

  • 主题发起人 主题发起人 sunyb
  • 开始时间 开始时间
S

sunyb

Unregistered / Unconfirmed
GUEST, unregistred user!
如何定位TOOLBAR2:我在一个COOLBAR上放了两个TOOLBAR,其中用TOOLBAR1上的toolBUTTON控制TOOLBAR2的VISIBLE属性,但是每次显示TOOLBAR2时总在最右边,要把它拉出来才行?(50分)<br />
 
var
r : integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ToolBar2.Visible then
begin
ToolBar2.Visible := not ToolBar2.Visible;
ToolBar1.Width := r
end
else
begin
r := ToolBar1.Width;
ToolBar2.Visible := not ToolBar2.Visible;
end;
end;
 
谢谢轻松虎,继续请教:当TOOLBAR2显示出来后,当COOLBAR的AUTOSIZE:=TRUE时,COOLBAR
变宽了,很难看;当COOLBAR的AUTOSIZE:=FALSE时,宽度没变,但是TOOLBAR1的按钮只有了
一半,下半身隐藏在里面了,好象是COOLBAR的总宽度不够造成的,不知道怎么处理合适?
 
谢谢了,问题解决,将TOOLBAR2的ALIGN:=CLIENT就可以了
 
后退
顶部