if not assigned(form1) then
Application.CreateForm(TForm1,Form1);
Application.CreateForm(TForm1,Form1);
解决方案 »
- 用printer对象设计打印程序,如何控制页眉和页脚,使他们都等于零
- TIdTCPClient与TServerSocket通信问题?
- 指针是不是就是地址?最好举例说明,越详细越好,谢谢
- Delphi 2005???????the new Version!知道情況的來說一下吧
- 一个oracle数据库查询的问题
- 简单的问题。。。。。。。。。。。。。。。。。。。。。
- 提一个笨问题,我从51Delphi下载了FastReport,请问如何装载到我的D7中?在线等待...立即结贴!
- 如何控制treeview的成员被选中时的图标!?
- 关于编辑器的编写问题
- 恭喜发财!龙马精神!过年了!:)~~~~~~
- 如何将配置信息写入.exe内(象ShareQQ)?
- 如何使OpenDialog的默认打开路径是我的文档
if not assigned(WaterCopyFrm) then
begin
Application.CreateForm(TWaterCopyFrm,WaterCopyFrm);
WaterCopyFrm.ShowModal;
end else
begin
WaterCopyFrm.ShowModal;
end;
finally
WaterCopyFrm.Free;
WaterCopyFrm:=Nil;
end;