var
ShouForm:TShou;{TShou是一个窗体}
Begin
ShouForm:=TShou.Create(Application);
ShouForm.ShowMoudle;
ShouForm.Free;
end;
ShouForm:TShou;{TShou是一个窗体}
Begin
ShouForm:=TShou.Create(Application);
ShouForm.ShowMoudle;
ShouForm.Free;
end;
解决方案 »
- 和一般的需求不一样,如何得到文件名,高手请进
- 繁体程序问题
- WinSock问题
- 在学习ADO实现数据库编程,两个表如何实现关连,请求帮助。
- 突然发现对一个基本概念还不清楚:虚拟构造函数
- 请问如何得到其他窗口上的控件上的文字?
- 一个函数调用问题,急!!!!!!!!!
- 急,FastReport 合并相同行后如何去掉行间线!!!
- 为什么image在代码里用image.picture.loadfromfile(*.jpg),说不支持jpg,只能用bmp,而在object inspector里却可以load *.jpg?
- Delphi 5中的那些server组件,如何使用?
- 用delphi能实现网上投票作弊吗?
- 快受不了Begin...End了
var
ShouForm:TShou;{TShou是一个窗体}
Begin
try
Application.CreateForm(TShou,ShouForm);
ShouForm.ShowMoudle;
ShouForm.Free;
except
showmessage('窗体初始化失败!');
end;
end;
给分!
总得要free
procedure TF_1.N39Click(Sender: TObject);
begin
N33.Click ;
Try
F_10 := TF_10.Create( Self );
F_10.ShowModal ;
Finally
F_10.Free ;
End ;end;
我写的有问题吗?
我在主窗口中,当一个按钮按下时:
var
ShouForm:TShou;{TShou是一个窗体}
Begin
ShouForm:=TShou.Create(Application);
TShou.Show();
end;
在窗体的关闭事件里写
Action:=CaFree;放掉窗体
我在主窗口中,当一个按钮按下时:
var
ShouForm:TShou;{TShou是一个窗体}
Begin
ShouForm:=TShou.Create(Application);
TShou.Show();
end;
在窗体的关闭事件(OnClose)里写
Action := CaFree;
再在窗体的(OnDestroy)里写
ShouForm := nil;
我建议干脆执行程序时创建窗体,然后使用show,即使在xxxx.prg文件中创建;
而不是按下按纽时创建。
一般情况下同一个窗体只需要显示一个就行了,那么可以这么做:
如果不是MDI窗体,就像tikkypeng(千两狂死郎)兄写的那样用ShowModal显示
如果是MDI窗体,就要定义全局变量ShouForm,然后加如下代码:
begin
if ShouForm = nil then
ShouForm:=TShou.Create(Application);
ShouForm.Show;
end;
还要加
在窗体的关闭事件(OnClose)里写
Action := CaFree;
再在窗体的(OnDestroy)里写
ShouForm := nil;试试看。
shouform.free;
shouform:=nil;
CSDN的兄弟们还等你回来玩呢