登陆

ShowModal返回信息 窗体弹出后的返回值

  1. Var  
  2.   SetFrm :TSetes;  
  3. begin 
  4.   SetFrm :=TSetes.Create(nil);  
  5.   SetFrm.ShowModal;  
  6.   if SetFrm.ModalResult =2 then 
  7.   ShowMessage('配置重载成功!');  
  8. end;  

窗体弹出后需要接触到确认与取消按钮 modalresult :=mrOK能返回1 modalresult :=mrCancel能返回2

图片附件:
felix_001.gif

大小: 22.91 K
尺寸: 400 x 85
浏览: 1085 次
点击打开新窗口浏览全图

« 上一篇 | 下一篇 »