我把一个ToolBar放在窗体的右边,把ToolBar设置成和窗体上下和左对齐,ToolBar上放置一个TreeView,但是我把TreeView的Align设置成alClient,TreeView不会和ToolBar一样大,在运行时TreeView的大小也不会边,现在我想用代码实现TreeView的大小跟着ToolBar缩放,怎么做?希望呢功能具体点,第一次用TreeView控件

解决方案 »

  1.   

    你可以写在form的resize事件了
    让treeview.width=toolbar.width 等……
      

  2.   

    procedure TmainFM.FormResize(Sender: TObject);
    begin
    TreeView1.Height:=ToolBar2.Height ;
    end;这样好象不行啊?
    还有问一下,我怎么判断一个窗体已经打开了,比如我有代码:procedure TmainFM.zhiyuandanganClick(Sender: TObject);
    var
      afm: TzydaFM;
    begin  afm:=TzydaFM.Create(nil);
      afm.Show;end;当我已经单击过一次zhiyuandangan的时候,窗体zyda已经打开了,当我再次单击zhiyuandangan的时候发现窗体zyda已经打开了,我就不再Show这个窗体了