有一張search form,比幾個不同的form用,但每張form只會call到一張search form,即是話再call也只是原來的那張search form (showmodal) 不同form可以同時create那張search form (showmodal) 一開始的search form是不戴入程式,到了某一張form雖然的時間,便會call,我用方法是在要call這張form的其它forms到有一個叫 m_SearchForm : TSearchProducerForm, 我也有uses SearchProducer,但是我不太懂如何call,因為我declare m_searchform為tform就可以,但為tsearchproducerform就不能夠,因為那張search form會return一個數值給母form,所以會有自建function,但compile時會說undeclare identifier,那怎麼辦呢?

不太明白，最好把程序附上来看看。 如果要定义m_SearchForm : TSearchProducerForm；就要在uses里加上TSearchProducerForm所在的unit。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

我的意思是我如何可以做到同一張名叫searchform,但可以比不同form去create/call,但每個searchform是獨立的

 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  searchform:TSearchForm; //TSearchForm為你的search form的class name
begin
  SearchForm:=TSearchForm.Create(Self);
  try
    SearchForm.ShowModal;
  finally
    SearchForm.Free;
  end;
end;

引言: 我的意思是我如何可以做到同一張名叫searchform,但可以比不同form去create/call,但每個searchform是獨立的

BorlandUser 你好 主要是不可同名，若不同名倒是可以 SearchForm1 : TSearchForm ; SearchForm2 : TSearchForm ; SearchForm1與SearchForm2有相同的行為模式且獨立，因為都是SearchForm的實體。

你好：
  你只要自行宣告一個 tsearchproducerform 的物件變數既可。如下的範例
既是宣告一個 Tsearchproducerform 為Tform1 的私有變數。這樣你說你了解嗎    >    < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
        

如果一開始我的tsearchform是沒有戴入去program,那麼是否也可以直接就用TSearchForm.Create(Self) ??

你好：
  你可以一開始便將 TSearchForm 建構完成，也可以使用我下列的範例。    type
  // 這個 TSearchForm 宣告是為了讓你了解整個架構。
  TSearchForm = Class(TForm)
    public
      procedure Execute;
  end;      TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FSearchForm : TSearchForm;      public
    constructor Create(AOwner: TComponent); override;
    function SearchForm : TSearchForm;
  end;    implementation    {$R *.dfm}    { TForm1 }    constructor TForm1.Create(AOwner: TComponent);
begin
  FSearchForm := nil;   // 在建構 TForm1 時將 FSearchForm 初始化為 nil;
  inherited;
end;    function TForm1.SearchForm: TSearchForm;
begin
  // 判斷 FSearchForm 是否已經建構，如果沒有則建構一個新的 TSearchForm
  // 如果有則傳回 FSearchForm
  // 使用這個技巧可以在需要的時候才建立該項資源
  if FSearchForm = nil then
    FSearchForm := TSearchForm.Create(self);
  result := FSearchForm;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchForm.Execute;
end;

我有一個疑問,為什麼我declare如m_Form: TSearachForm;在public那裏郤會說我undeclare identifier,但如果在一個button上create則沒有這個問題?

你好： 重點是你的程式如何寫的我們並不清楚，你這樣問誰能給你正確答案 何不把有問題的 src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

unit TestForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) SearchButton: TButton; private m_Form: TSearchForm; { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.dfm} uses SearchForm; end. unit SearchForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} end. 在Unit TestForm中,我嘗試declare一個m_Form為TSearchForm,但郤是undeclare identifier,那麼我怎樣做呢?

unit TestForm;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SearchForm; // SearchForm 放在這裏    type
  TForm3 = class(TForm)
    SearchButton: TButton;
  private
    m_Form: TSearchForm;
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form3: TForm3;    implementation    {$R *.dfm}    //uses SearchForm; // 這行 mark 掉    end.        unit SearchForm;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation    {$R *.dfm}    end.        在Unit TestForm中,我嘗試declare一個m_Form為TSearchForm,但郤是undeclare identifier,那麼我怎樣做呢?