procedure TSystemMain.CreatJobForm(clsform:TComponentClass;var Reference:Tform ;ShowType,SelectJob:integer);
var 
  i,showCount:integer;
begin
  if showType=1 then
  begin
    try
      Application.CreateForm(clsform,Reference);
      Reference.Tag:=SelectJob;
      Reference.ShowModal;
    finally
      Reference.Free;
    end;
  end 
  else
  begin
    showCount :=0;
    for I := 0 to Screen.FormCount-1 do
    begin // Screen.Forms[i].Name= form_name.Name
      if form_name=nil then inc(showCount);
    end;
    if showCount=0 then
    begin
      Application.CreateForm(clsform,Reference);
      Reference.Tag:=SelectJob;
      Reference.Parent:=Self;
      Reference.show;
    end;
  end;
end;    CreatJobForm(Tf12320_HoTktnoError,f12320_HoTktnoError,0,0);
[Error] SystemMainU.pas(119): Types of actual and formal var parameters must be identical
我想這裡是因為沒有uses有宣告f12320_HoTktnoError這個變數的單元進來的原因.    給你一個範例:
function TfrmMainForm.ExecuteProcess(FormName: string): TForm;
var
  i : Integer;
  Form : TForm;
  PFormName: PChar;
Begin
  PFormName:=PChar('T' FormName);
  Form := nil;
  for i := 0 to Screen.FormCount-1 do
  begin
    if Screen.Forms[i].ClassName = ID then
    begin
      Form:=Screen.Forms[i];
      Form.BringToFront;
      Break;
    end;
  end;
  if Form = nil Then
    Form := TFormClass(FindClass(ID)).Create(Application);
  Result := Form;
end;    //呼叫建立一個Form的程式
var
  aForm:TForm;
begin
  aForm:=ExecuteProcess('f12320_HoTktnoError');
end;    另外,在宣告Tf12320_HoTktnoError的單元裡,要在一開始時註冊該物件,如下:
initialization
begin
  RegisterClasses([Tf12320_HoTktnoError]);
end;    這樣你就可以動態產生你要的Form了,且不需要去uses所有的單元

引言: 另外,在宣告Tf12320_HoTktnoError的單元裡,要在一開始時註冊該物件,如下: initialization begin RegisterClasses([Tf12320_HoTktnoError]); end; ================================================= 不好意思...我不太懂上面這段要怎麼作哩....^^"

  if Form = nil Then
    Form := TFormClass(FindClass(FormName)).Create(Application); //<--這裡的FormName指的是Form的ClassName才對,即傳入function的參數要傳form的ClassName,而不是formName
  Result := Form;

引言: 請問是把那段加在Tf12320_HoTktnoError的單元檔裡(最下面)囉... 可是我執行到 Form := TFormClass(FindClass(FormName)).Create(Application); 後出現class f12320_HoTktnoError not found哩... 那表示還沒有註冊啊,真的不用use嗎... 發表人 - cosuki 於 2003/12/25 16:58:48