为什么MDI窗口在被创建时会自动Show,怎样让其不自动弹出,谢谢!
解决方案 »
- 一个小小的报表玩具
- 寻找一个DELPHI窗口控件
- 庆祝偶这个星期六要去追一个女孩子*散分*(顶者均有分)
- 两个公式,如何判断是刚才的字断改后,然后变动使用这两个公式,具体如下
- 奇怪的问题。。。。
- 对nil和NULL的随想
- 关于NetUserEnum()的用法,能否请各位给出详细的Delphi源代码?
- 如何等待当前网页已下载完毕?,要用什么控件?是否用timer 控件?
- 一个sql的问题!
- delphi中如何将TCANVAS上的内容转化为一幅图象?
- 如何判断ShockwaveFlash控件的URL是否可用,也就是说是否找到了播放文件
- 国内原创的Delphi站点几乎没有,总是抄来抄去的,现在终于有个原创的Delphi站点了,散分!
调用时用:Form1:=TForm1.create(self);
Form1.show;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2<>nil then
Form2.Close;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if Form2=nil then
Form2:=TForm2.Create(nil);
end;end.
子窗体
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
Form2:=nil;
end;end.
Forms,
Form1 in 'unit.pas' {form1},
form2 in 'unit2.pas' {form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
显而易见
你从把FORM2去掉就可以了
然后SHOW的时候再创建。
begin
form2:=tform2.create(application);
form.show;
end;
隐:ShowWindow(Form2.Handle,SW_HIDE);
显:ShowWindow(Form2.Handle,SW_SHOW);