procedure TQueryIncomeStoredroomIdForm.ComboBox1Change(Sender: TObject); begin showmessage('kkkkkkkk'); end; procedure TQueryIncomeStoredroomIdForm.Edit1Change(Sender: TObject); begin showmessage('llllllllll'); end; 可是不起作用啊~~ QueryIncomeStoredroomIdForm 窗体是这样创建出来的 procedure TGamerIncomeOrOutcomeStoredroomForm.N1Click(Sender: TObject); begin IncomeStoredroomIdForm:=TIncomeStoredroomIdForm.Create(nil); IncomeStoredroomIdForm.ShowModal; finally IncomeStoredroomIdForm.Free; end; end; 是不是我别的地方没有做好啊 ！ 谢谢各位大哥！ procedure TQueryInGamecomeStoredroomIdForm.BitBtn1Click(Sender: TObject); begin showmessage('kkkkkkkk'); end; 单击 BitBtn1，都不弹出 'kkkkkkkk' 啊？ 各位大哥 是什么原因啊？ 谢谢！ 还有更绝的，我放了一个 Button1 到 QueryInGamecomeStoredroomIdForm 窗体上 可是编译的时候 Button1 都不见了（看不到） 是不是 我动 QueryInGamecomeStoredroomIdForm 的哪个属性呢？ 谢谢！

您好﹗    建立IncomeStoredroomIdForm時的語法錯誤﹐改成如下﹕

procedure TGamerIncomeOrOutcomeStoredroomForm.N1Click(Sender: TObject);
begin
  Try
    IncomeStoredroomIdForm:=TIncomeStoredroomIdForm.Create(nil);
    IncomeStoredroomIdForm.ShowModal;
  Finally
    IncomeStoredroomIdForm.Free;
  end;
end;

範例如下﹕

procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
    Form2 := TForm2.Create(Nil);
    Form2.ShowModal;
  Finally
    Form2.Free;
  end;
end;    procedure TForm2.Edit1Change(Sender: TObject);
begin
  ShowMessage('Edit1');
end;    procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  ShowMessage('ComboBox1');
end;    procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  ShowMessage('BitBtn1');
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashxin2002 大哥： 您好！ 还是不行啊，是不是我的 QueryIncomeStoredroomIdForm 在某种模式下面] 使 其控件都不起作用呢？ try IncomeStoredroomIdForm:=TIncomeStoredroomIdForm.Create(nil); DataModuleForm.ADOStoredProc1.Close; DataModuleForm.ADOStoredProc1.ProcedureName:='ProcSelectGamerIncomeStoredroom_on_distinct'; DataModuleForm.ADOStoredProc1.Parameters.Clear; DataModuleForm.ADOStoredProc1.Prepared:=true; try DataModuleForm.ADOStoredProc1.Open; for i:=0 to DataModuleForm.ADOStoredProc1.RecordCount-1 do begin IncomeStoredroomIdForm.ComboBox1.Items.Add(DataModuleForm.ADOStoredProc1.Fieldbyname('IncomeStoredroomId').AsString); DataModuleForm.ADOStoredProc1.Next; end; except on e:exception do showmessage(e.Message); end; IncomeStoredroomIdForm.ShowModal; finally IncomeStoredroomIdForm.Free; end; combobox1 的 items 里添加了记录 可是 procedure TQueryIncomeStoredroomIdForm.ComboBox1Change(Sender: TObject); begin showmessage('kkkkkkkk'); end; procedure TQueryIncomeStoredroomIdForm.Edit1Change(Sender: TObject); begin showmessage('llllllllll'); end; procedure TQueryInGamecomeStoredroomIdForm.BitBtn1Click(Sender: TObject); begin showmessage('kkkkkkkk'); end; 还是不作用！ 我放了一个 Button1 到 QueryInGamecomeStoredroomIdForm 窗体上 Button1 ，还是看不到啊！ 谢谢 cashxin2002 大哥！

兄弟，從你說的現象，我認爲很有可能是因爲路徑的問題造成你動態生成的Form並非你想要的Form。      舉個例子：之前你的程式放在某個Folder A 中。最近你將他們Copy到另一個Folder A 中進行修改。這樣，就可能造成你的某些Class仍然會參照舊Folder A中的Class。明白了嗎? 如果你確實有這種情況，那麽最簡單的方法是將你的舊Folder改個其他名字。      你最好做一下測試，將你的Class 改個名字，看問題是否解決，起碼Button應該現實出來。 和路徑相關的一些環境設定： Tools -> Environment Options -> Library Project -> Options ->Directories/Conditionals

非常感谢 cashxin2002 大哥 和 Arlung Miao 大哥 确实如 Arlung Miao 大哥 所说的那样！ 还有要请 cashxin2002 大哥 和 Arlung Miao 大哥 的是： Tools -> Environment Options -> Library Project -> Options ->Directories/Conditionals 要设置哪写东西啊？ 再次感谢 cashxin2002 大哥 和 Arlung Miao 大哥！

您好﹗    這兩個設定的作用是指定Libiary﹔BPL﹔DCP﹔Browse的路徑﹒ 建議您在不同的專案中重新建立新的Form & Unit結搆﹐或者使用[Right Click In Form\Add Repository...]的方法將經常使用的Form建立在物件寶庫中加以儲存﹐以利于日后的使用﹐如果需要移除的話﹐使用[Tools\Repository]進行移除﹐供您參考﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashxin2002 大哥： 您好！       Libiary 我自己从来没有设置过啊，就是安装 delphi 时默认的！       只有在安装 控件的时候，把控件的路径添加进来。       BPL﹔DCP﹔Browse，是从来没有设置过啊！    cashxin2002 大哥，您说： 建議您在不同的專案中重新建立新的Form & Unit結搆﹐或者使用[Right Click In Form\Add Repository...]的方法將經常使用的Form建立在物件寶庫中加以儲存﹐以利于日后的使用﹐如果需要移除的話﹐使用[Tools\Repository]進行移除﹐    //我还是不明白啊！ 请cashxin2002 大哥 再详细解释一下！    output directory unit output directory search path debug source path bpl output directory dcp output directory    conditional defines    unit aliases    分别表示什么意思啊？    还有请大哥把我附件 Directories/Conditionals 设置一下 这样以后我就自己照着样子来！    谢谢 cashxin2002 大哥！         發表人 - lsh998 於 2005/05/13 15:38:29

您好﹗    [Project\Options...\Directories/Conditionals]]中的設定和您相同﹐這是Delphi預設的設定﹐一般來講﹐不建議去更改﹐再如[Tools\Environment Options\Library]中的設定﹐同您所述﹐如果有另外新增的Library等物件﹐才需要對其做修改補充﹐如下﹕ 物件寶庫Repository﹐使用方法如下﹕ step1.在視窗空白處﹐點擊Mouse右鍵﹐選擇[Add Repository...]﹐如下﹕ step2.在[Add Repository...]對話框中輸入Title和所在的Page名稱﹐這里以[主視窗][Form]為例﹐如下﹕ step3.以后在做其它專案時﹐如果要用掉這個主視窗Form﹐就可從[New...]的[Form]頁次中找到新增這個Form﹐并做新增的動作﹐如下﹕ 如果需要移除的話﹐使用[Tools\Repository]進行移除﹒ 供您參考﹗ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/05/13 19:30:21

------
忻晟

cashxin2002 大哥：                     您好！      我按照您的方法，添加一个窗体，可是在[Tools\Repository]进行 删除时，出现了如附件所示的错误，cashxin2002 大哥 我还要做哪一步啊？                                            礼致！

cashxin2002 大哥： 是我搞错了，我是单击的 delete page 应该是 单击 delete object！ 再次感谢 cashxin2002 大哥 和 Arlung Miao 大哥！