控件问题？

Question

Form1和自定义单元2,我想在单元2里创建控件3,并让控件3显示在Form1里，怎么办？　　                           ------------
　　　　　　                  |   单元2    |
                              |            |
           Form1   <--------- | 创建控件3  |
                      显示     ------------

Answer 1

uses  Unit1;{$R *.dfm}procedure TForm2.MPSkinButton1Click(Sender: TObject);
begin
   with TButton.Create(nil) do
   begin
      Parent := Form1;
      SetBounds(1,1,20,10);
   end;
end;

Answer 2

form1用参数代替,如何做？

Answer 3

我的具体问题是这样：
　unit unit1;
　type
   TLanxi = class
    public
     procedure Dealfile(file:string); //处理文件
  end;
implementation
  procedure Dealfile(file:string);
  begin
    dealline;//处理一行
　　｛代码非常多}
  end;
end.     现在我想在一FORM里显示以进度条，希望每处理一行进度条步进一次．但我不希望在Unit1里引用FORM，即想把unit1封装成与FORM无关的．有没有办法？

Answer 4

设置TProgressBar的parent和owner都为form1就可以了，如果要把form1做为一个参数，参数就用类引用就可以了