动态创建这个窗体,或对这个窗体发送一个RECREATEWIN消息
解决方案 »
- SetWindowsHookEx 在VISTA的问题
- delphi 里Tobjectlist问题?
- DLL中的ShareMem问题
- 如何画销售走势点线图(里面有模拟数据列举)
- 如何同时对两个SQL服务器上的数据库中的表进行操作?在线,马上结帖!!!!
- 请各位指教。。自定义函数该如何声明如何写。请个例子(在线等)
- 高分求教一段操作excel的代码,谢谢!!!!!100分相送
- 高手帮个忙,TStoredProc 和存储过程必须一一对应吗?如果不是,怎样写能帮忙说一下吗?
- 無效的對象名
- 制作一个仓库系统,如何将定义好的指针变量清空
- 你们说学编程是把object pascal学精,还是学delphi的操作,做些东西出来
- handle为什么是数字
1。可在OnShow或OnHide时清除文本框,组合框,STRINGGRID里的值;
2。窗体动态创建及时销毁.
越简单越好!谢谢!
ShowModal;
Free;
end;如果是普通Show的方式,在你的窗体中的Close中写入
Action:=caFree;
TMainForm.btnCreateClick(Sender: TObject);
var
Form1: TForm1;
begin
if not Assigned(Form1) then//判断是否已经存在;
Form1 := TForm1.Create(Application);
Form1.show;//显示窗体;
end;
窗体释放过程;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;//释放窗体;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
Form1 := nil;//由于delphi不会自动将form1设为nil,要进行判断就必须自己
将它设为nil!
end;