菜鸟问问题：有什么办法动态加载一个Frame（来源于自己做的Frame模型）到一个Form中啊

Question

有什么办法动态加载一个Frame（来源于自己做的Frame模型）到一个Form中啊，请大家教教我。我急用，谢谢！

Answer 1

因为我在一个窗体里要用到7个不同的frame，如果全放上去的话，太难看了。所以我想点某个按钮就动态的调用某个想要的frame，不知道有什么方法呢？？

Answer 2

create frame后，指定frame的parent就可以了，非常简单，跟创建一个控件没什么区别

Answer 3

uses
  YourFrameUnit;var
  AFrame:TYourFrame;
 
procedure TForm1.Button1Click(Sender:TObject);
begin
  AFrame:=TYourFrame.Create(Self);
  AFrame.Parent:=Self;
  AFrame.SetBounds(..);
  AFrame.Show;
end;

Answer 4

当然你也可以把frame的visible设置为false,点击不同的按钮里就把对应的visible设为true,其他的再设置为false,这种方法简单些，动态创建就像上楼说的

Answer 5

当然你也可以把frame的visible设置为false,点击不同的按钮里就把对应的visible设为true,其他的再设置为false,这种方法简单些，动态创建就像上楼说的
copy的

Answer 6

procedure TMainFrm.AddParFrameFrm;
var
  TabSheet : TTabSheet;
  vParFrameFrm : TParFrameFrm;
begin
    vParFrameFrm := TParFrameFrm.Create(NIl);
    vParFrameFrm.Parent := TabSheet;
    vParFrameFrm.Align := alClient;
    vParFrameFrm.Name := 'Params' ;
    vParFrameFrm.ParListView.OnKeyDown := FRichEdtKeyDown;
    vParFrameFrm.Align := alClient;
    vParFrameFrm.Show;
end;procedure TMainFrm.DAddDataFrameFrm;
var
  TabSheet : TTabSheet;
  vDataFrame : TDataFrameFrm ;
begin
    vDataFrame := TDataFrameFrm.Create(NIl);
    vDataFrame.Name := 'F1BookFrame';    vDataFrame.Parent := TabSheet;
    vDataFrame.Align := alClient;
    vDataFrame.F1Book1.OnKeyDown := FRichEdtKeyDown;
    vDataFrame.Align := alClient;
    vDataFrame.Show;
end;
----------------------------------------------------------
事太多、心太乱
    

Answer 7

我刚刚回答过这个问题，有详细代码：
http://expert.csdn.net/Expert/topic/2328/2328176.xml?temp=.2645227