一个在课本上找不到的问题 我想问高手
我在学习编系统 我是初学者
form5.showmodal;
这句的showmodal什么意思呀
procedure TForm2.formclose(sender:TObject;var Action:TCloseAction);
begin
application.terminate;
end;
这句的过程是实现什么的
还有中间的那个是什么意思有什么作用呀
还有
try
except do
的用法最好有个例子谢谢了
还有在click事件中有个
form3:=tform3.create(application);
什么意思
还有
procedure TForm4.FormClose(Sender:TObject; var Action:TCloseAction);
begin
Action:=cafree;
end;
过程和里面的那个什么意思
详细点好吗
谢谢了 就这几个了
详细点
[解决办法]
1. form5.showmodal;显示一个模态窗体,就是那种显示完之后,不关闭的时候,主窗体就获取不到焦点的,就好象弹出来的对话框
2. application.terminate; 关闭程序
3 try
except do //捕捉遗产,就是在try..except的代码发生遗产的时候就跳到
except后面去处理
例如:
try
Z := 0;
X := Y/Z;
except
on EZeroDivide do ShowMessage( '除数不能为0 ');
end;
form3:=tform3.create(application); //生产一个TForm3的实例form3;由Application负债释放内存
Action:=cafree; //关闭窗体的时候释放窗体本身,比较多是用在子窗体上,因为不加这一句的时候关闭窗体会变成最小化的效果!