引言: bestlong 你好: 不太清楚你的需求... 是要在 MdiForm 叫起 MdiChild 時, 一併 Assign 對應的 Procedure 到 Button.Onclick 嗎 ? 還是在 ButtonClick Procedure 中判斷不同的 Screen.ActiveForm 執行不同的 Code ?

procedure TMdiChild.BtnClick(Sender: TObject);
var
  cForm : TMdiChild;
begin
  if (Sender as TButton).Parent.ClassType = TMdiChild then
  begin
    cForm := ((Sender as TButton).Parent) as TMdiChild;        if cForm.Caption = 'ChildForm1' then
      RunProc1
    else if cForm.Caption = 'ChildForm2' then
      RunProc2
    else if cForm.Caption = 'ChildForm3 then
      RunProc3
    ......
    ......
    
  end;
end;

引言: 應該是說在每個 MdiChild 都共用到 MdiForm 的同一個 Button, 同一時間會有很多個 MdiChild, 只是不同的 MdiChild 作用時, 按下 MdiForm 的 Button 就會去執行該 MdiChild 的一個 procedure.

procedure TMDIMainForm.test1Click(Sender: TObject); // test1 is TMenuItem on MdiForm
begin
  if (Screen.ActiveForm)<>nil then
  with Screen.ActiveForm do begin
  ...// Find and Perform Procedure
  end;
end;    

引言: 不知道我有沒有會錯意??? 定義一個 ButtonClick 的 procedure 假設 TMdiChild 是您造好的 ChildForm

procedure TMdiChild.BtnClick(Sender: TObject);
var
  cForm : TMdiChild;
begin
  if (Sender as TButton).Parent.ClassType = TMdiChild then
  begin
    cForm := ((Sender as TButton).Parent) as TMdiChild;        if cForm.Caption = 'ChildForm1' then
      RunProc1
    else if cForm.Caption = 'ChildForm2' then
      RunProc2
    else if cForm.Caption = 'ChildForm3 then
      RunProc3
    ......
    ......
    
  end;
end;

...... 的地方是以此類推,另外也可以用 Tag 代替 Caption ,事先就要有定義,如此不管是哪個 Child Form 上的 Button 都會對應到同一 OnClick Event Method 上,利用 Caption (Tag) 可區分執行不同的 procedure ...

引言: 又找到相關資料： 在網站 http://huanlin.adsldns.org/ 內有一篇文章： 設計可維護的應用程式 (原名：Maintainable Applications ) 作者：Taco Oosterkamp 轉譯：蔡煥麟先生 http://sun.cis.scu.edu.tw/~nms9115/articles/delphi/MaintainableApp/MaintainableAppTW.htm 在該文章內容當中的 3.6.3 事件 這一章節中有談到處理的方式與附帶原始碼. 繼續研究 我是雪龍

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
    Child := TMDIChild.Create(Application);
    Child.Caption := Name;
    case MDIChildCount of
        1 : Child.Button1.OnClick := Click1;
        2 : Child.Button1.OnClick := Click2;
        3 : Child.Button1.OnClick := Click3;
    else
        Child.Button1.OnClick := NIL;
    end;      if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CHILDWIN, StdCtrls;    type
  TMDIChild1 = class(TMDIChild)
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  MDIChild1: TMDIChild1;    implementation    uses MAIN;    {$R *.dfm}    procedure TMDIChild1.Button1Click(Sender: TObject);
begin
//  inherited;
    showmessage('xx');
end;    procedure TMDIChild1.FormActivate(Sender: TObject);
begin
//  inherited;
    MainForm.Button1.OnClick := Self.Button1Click;
end;    end.

引言: 你可以將所有 OnClick 事件所要處理的程式碼寫在 MainForm 上，並在 CreateMDIChild 事件，指定各個 MDIChild 的 Button1 OnClick 事件

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
    Child := TMDIChild.Create(Application);
    Child.Caption := Name;
    case MDIChildCount of
        1 : Child.Button1.OnClick := Click1;
        2 : Child.Button1.OnClick := Click2;
        3 : Child.Button1.OnClick := Click3;
    else
        Child.Button1.OnClick := NIL;
    end;      if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

不知這樣是否合乎你的需求 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 -------------------------------- < face="Verdana, Arial, Helvetica"> 你好 Fishman : 你的這個方式在小型的程式是可以的, 也是我以前有用到的方式, 但是如果會面臨 MdiChild 的數量很多的時候, 會有理解與除錯上的困擾,那不就慘了. 不過剛剛我已經測試出來了, 用了兩種方式, 馬上就要上場了. 目前就只擔心會不會有記憶體漏失的狀況. 我是雪龍

unit UMain;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, Menus, ExtCtrls, DBCtrls, StdActns,
  ActnList, StdCtrls;    type
  TFMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Child11: TMenuItem;
    Child21: TMenuItem;
    mnuWindow: TMenuItem;
    ToolBar1: TToolBar;
    tbtnPrint: TToolButton;
    ImageList1: TImageList;
    tbtnFind: TToolButton;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    DBNavigator1: TDBNavigator;
    ActionList1: TActionList;
    WindowTileVertical1: TWindowTileVertical;
    WindowTileHorizontal1: TWindowTileHorizontal;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Child11Click(Sender: TObject);
    procedure Child21Click(Sender: TObject);
  private
    { Private declarations }
    FTempOnClick: TNotifyEvent;
  public
    { Public declarations }
  end;    procedure OpenChiForm(FormClass: TFormClass; var fm; AOwner: TComponent);
procedure OpenDlgForm(FormClass: TFormClass; var fm; AOwner: TComponent);    var
  FMain: TFMain;    implementation    uses UChild_1, UChild_2;    {$R *.dfm}    procedure OpenChiForm(FormClass: TFormClass; var fm; AOwner: TComponent);
var
  i: integer;
  Child: TForm;
begin      for i := 0 to screen.FormCount - 1 do
  begin
    if Screen.Forms[i].ClassType = FormClass then
    begin
      Child := Screen.Forms[i];
      if Child.WindowState = wsMinimized then
        ShowWindow(Child.Handle, SW_SHOWNORMAL)
      else
        ShowWindow(Child.Handle, SW_SHOWNA);
      if (not Child.Visible) then Child.Visible := true;
      Child.BringToFront;
      Child.SetFocus;
      TForm(fm) := Child;
      exit;
    end;
  end;
  // 找不到 Form 就建立
  Child := TForm(FormClass.NewInstance);
  TForm(fm) := Child;
  Child.Create(AOwner);
end;    procedure OpenDlgForm(FormClass: TFormClass; var fm; AOwner: TComponent);
var
  i: integer;
  Child: TForm;
begin
  // 建立 Form
  TForm(fm) :=FormClass.Create(AOwner);
  try
    TForm(fm).ShowModal;
  finally
    TForm(fm).Free;
  end;
end;    procedure TFMain.N1Click(Sender: TObject);
begin
  self.Close;
end;    procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('確定離開本程式', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    CanClose := false;
end;    procedure TFMain.Child11Click(Sender: TObject);
begin
  OpenChiForm(TFChild_1, FChild_1, self);
end;    procedure TFMain.Child21Click(Sender: TObject);
begin
  OpenChiForm(TFChild_2, FChild_2, self);
end;    end.