to anddyluo：
我知道你的问题出在哪！你肯定在Program中让程序自动创建了子窗体。老兄，你既然想
让别的菜单调用他就不要让程序自动创建的，这是个基本问题你竟然疏忽了。
给你代码：
//********************************************
//主程序
//注意：子窗体在词不可自动创建
program ProDemo;
uses
Forms,
UnitMain in 'UnitMain.pas' {FormMain},
UnitChild in 'UnitChild.pas' {FormChild};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
//你的问题就出在下面
// Application.CreateForm(TFormChild, FormChild);
Application.Run;
end.
//*****************************************
//主窗体。注意窗体属性
//*****************************************
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TFormMain = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
mnuChild: TMenuItem;
procedure mnuChildClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TFormMain;
implementation
uses UnitChild;
{$R *.dfm}
procedure TFormMain.mnuChildClick(Sender: TObject);
begin
if not Assigned(FormChild) then
Application.CreateForm(TFormChild, FormChild);
FormChild.Show;
end;
end.
//**********************************
//子窗体：注意窗体属性。
//**********************************
unit UnitChild;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFormChild = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormChild: TFormChild;
implementation
{$R *.dfm}
procedure TFormChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
FormChild := nil;
end;
end.
