之前我有搜尋了一下討論區，不過我看到的跟我想知道的好像不太一樣， 所以不好意思在提出來問一下各位大大？ 我想請問各位大大： 我已經在同一個專案裡面使用到多個MDIForm的功能，確實可以執行，也可以互相呼叫，不過，當我開始建立MDIChild的時候，MDIChild卻沒有辦法知道他的母表單是誰，而是每次都屬於同一個MDIForm下，不知道各位大大知不知道有沒有辦法可以正確的指定屬於的MDIForm的語法，因為我看到好像都是說不能同時建立兩個表單，卻沒說如果建立後子表單會如何.......... 拜託各位幫我一下，謝謝！！！ 發表人 - Mickey 於 2003/10/21 13:30:56

看不懂,你要不要把程式碼post上來,這樣可能會比較清楚

你所建立的MDIForm有個屬性parent的指標就是這個form的母表單

Hi wscken 您好: 剛剛試了一下, 竟然看不到Parent, Parent是nil, 看來只能找出Owner了 ShowMessage(ChildForm2.Owner.Name); 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

大大抱歉，我試了一下，好像看不懂Owner， 是不是沒有人這樣做過...

傳入 MDIChild Form 的 Name 來查詢:

procedure TForm1.CheckMDIForm(AMDIChild: TForm);
var
  i, j: integer;
  fm: TForm;
begin
  if AMDIChild.FormStyle <> fsMDIChild then begin
    ShowMessage(AMDIChild.Name   ' 不為 MDIChild Form');
    Exit;
  end;      for i := 0 to Application.ComponentCount -1 do begin
    if Application.Components[i] is TForm then begin
      if (Application.Components[i] as TForm).FormStyle = fsMDIForm then begin
        fm := Application.Components[i] as TForm;
        for j := 0 to fm.MDIChildCount -1 do begin
          if fm.MDIChildren[i].Name = AMDIChild.Name then begin
            ShowMessage(AMDIChild.Name   ' 的母 Form 是'   fm.Name);
            Break;
          end;
        end;
      end;
    end;
  end;
end;

--- 歡迎光臨 KTop 研究院

版主大大： 我試了一下，不過都會出現 這個錯誤，而且不管是從哪裡呼叫都一樣，是我使用方式錯誤了ㄇ...

啊! 要檢查的那個 TForm 必須已經 create 的. --- 歡迎光臨 KTop 研究院

若使用CLX, 有MDIParent的property可設定 使用VCL的話, 所有MDIChild的MdiParent一定是同一個吧

hagar大大,那個我有Create了，好像不是這個問題... 至於ccchen大大說的，我在找一下資料，因為我是初學者，我也不會用那個 不知道有什麼差別....

引言: hagar大大,那個我有Create了，好像不是這個問題... 至於ccchen大大說的，我在找一下資料，因為我是初學者，我也不會用那個 不知道有什麼差別....

我的意思是在不改Source Code的原則下, 使用VCL, 一個AP只能有一個MDIForm, 即使你Create了兩個MDIForm, 所有的MDIChild也只認一個

我了解您所說的意思，多謝各位大大的回應..... 多謝...