我寫了一個 ActiveForm 中會開啟另一個一般Form , 在這個一般Form 中我要如何將值指定給 ActiveForm 中的 Edit1.text.. 謝謝 發表人 - eigaeiga 於 2005/05/19 15:39:24

小弟是用 ShowModal 的方式如下:

procedure TActiveXForm1.Button1tClick(Sender: TObject);
begin
  Form2 := TForm2.Create(nil);
  try
    Form2.ShowModal;
    Edit1.Text := From2.Edit1.Text;
  finally
    FreeAndNil(Form2);
  end;
end;

-- hagar.

謝謝 hagar 的回覆... 但我想要的功能,若以上面的程式碼為例, 是在 Form2.Button1Click(Sender: TObject); 將值傳給 Form1(ActiveForm) 中的Edit1.text , 也就是我要如何在 Form2 取存到 Form1 的物件..謝謝

據小弟的認知所及是沒有辦法的 平常的 Application 裡, 會有 var Form1: TForm1; 這種東東 於是我們可以存取 Form1 但 ActiveXForm 沒有 -- hagar.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.