看到有些窗体调用是这样写的:
主窗体:TForm1 被掉窗体: TForm2 ,窗体中一个Tlistview组件主窗体中: 一个按钮事件: TForm2:=TForm2.Create(self);
TForm2.showmodal; 我这样在TForm1中调用TForm2时,一点击按钮,总是提示Tlistview已存在似的提示,不能执行,请问是怎么回事,该如何去做,谢谢了!!
主窗体:TForm1 被掉窗体: TForm2 ,窗体中一个Tlistview组件主窗体中: 一个按钮事件: TForm2:=TForm2.Create(self);
TForm2.showmodal; 我这样在TForm1中调用TForm2时,一点击按钮,总是提示Tlistview已存在似的提示,不能执行,请问是怎么回事,该如何去做,谢谢了!!
解决方案 »
- 从数据库中取数到combobox
- 关于select语句
- 有请密界高手!MD5加密后密文对比方法!!!
- fastreport中自定义纸张问题?
- 初用DELPHI,请求帮助!
- 求教,关于DataModule中相关数据库不存在时的错误处理.
- 如何采集串口数据,数据是以不定长传输的,开始位:FE,终止位:FF
- 一个比较急的问题
- 想学习DELPHI,请问应该安装哪个版本的DELPHI及书籍
- lanren_me(阿波):能否把dbf->db(paradox)的转换程序发个给我,[email protected]
- 不知到jpg图相如何做成vcd来播放,以前有下载过一个制作软件,早丢了,请问哪位兄弟有?
- 请教如何获取窗体和文本框的句柄??
Form2.showmodal;
Form2.free
Form2.showmodal; 用这两条也总提示有问题
如果有,那么挪走就可以了
-----------------------
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2); <----删除该行
Application.Run;
end.--------------------------
然后用
Form2:=TForm2.Create(self);
Form2.showmodal;
try
showmodal;
finally
free;
end;
showmodal是模态的也就是说不关闭不回执行free的