以下是我寫的程式碼,但我不知那裡寫錯了,每次都是顯示不存在,可以告訴我錯在那嗎?謝謝了。  

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   if FindComponent('Form2') = nil then
     showmessage('不存在')
   else
     showmessage('存在')
end;

發表人 - hidylan 於 2005/03/06 00:07:13

hidylan 你好     一般Form的Owner 是Ａpplication 所以你用FindComponent當然會找不到， 正常在Form1中有uses Form2的單元檔，你 可以用以下方式檢查Form2是否己２建立實體(即為物件)

  If Assigned(Form2) Then 
    showmessage('存在')
  else
    showmessage('不存在')

_______________________________________ 深藍的魚，祝您好運..........連連

引言: 以下是我寫的程式碼,但我不知那裡寫錯了,每次都是顯示不存在,可以告訴我錯在那嗎?謝謝了。

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   if FindComponent('Form2') = nil then
      //尋找Form1下的Component
      //Form2在Application下，所以前面要加個
      Application.FindComponent('Form2')
     showmessage('不存在')
   else
     showmessage('存在')
end;

發表人 - hidylan 於 2005/03/06 00:07:13

發表人 - jest0024 於 2005/03/06 16:59:20

謝謝教導,了解了。