模态窗口,只要窗口的modalresult有值,就会关闭。
你设了100,就有反回值了,所以就变了。第二个也一们,你所设的mrcancel、mrok等只对模式窗口起作用,对非模式窗口不起作用。
模式窗口的使用:
if form2.showmodal=mrok then
begin
end else
begin
end;
你设了100,就有反回值了,所以就变了。第二个也一们,你所设的mrcancel、mrok等只对模式窗口起作用,对非模式窗口不起作用。
模式窗口的使用:
if form2.showmodal=mrok then
begin
end else
begin
end;
解决方案 »
- 如何终止FormClose消息
- 求DOC转BFX的软件?或DOC转BFX的原理资料?
- 怎样用ADOQUERY动态创建一个FOXPRO数据库表? ?!
- 问一个简单问题:在edit或dbedit框中如何实现"123.56.789"类似的输入?
- 如何循环将值赋给组件?
- 关于DELPHI6中的COM+更新问题
- 当我激活一个TTABLE的时候,设置了“IndexName”属性,怎么就出现“Index is out of data”的出错提示?
- 怎样把*.ani图标放在程序里?使鼠标变样!谢谢!
- combobox控件
- to BCB(:): 你知道outbar怎样注册吗?
- 暂别CSDN,散分
- 求与系统时间相关的API函数?即如何编程修改电脑时间?急用!先谢了!
只是对模态窗口有效,看看这个就知道了:
function ShowModal: Integer; virtual;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
点这个按钮,ShowModal返回你定义的数,并且关闭窗口—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
ModalResult中的值就是Form.ShowModal的返回值,以便于调用者可以知道用户是点击的哪一个按扭来关闭窗体的.如果某些按扭不关闭窗口,应把ModalResult设置为mrNone.
第一次在csdn上提问,得到回答,感觉真好。