bcb的ShowModal

来源:互联网 发布:战网数据查询 编辑:程序博客网 时间:2024/06/05 03:31

Form3=new TForm3(this);            
 int res = Form3->ShowModal();
    if(res == 1){
        ShowMessage("ok");
    }else if(res == 2){
    ShowMessage("cancel");
       // Application->Terminate();
    }

  delete(Form3);

--------------

Form3:this->ModalResult=1; 会自动关闭窗口返回 ok

------注意Application->CreateForm(__classid(TForm3), &Form3); 这个就不要了

 

原创粉丝点击