一个意想不到的问题，SpeedButton关闭不了模态对话框

[zhenyu362]

我在frm上面放了一个SpeedButton1,然后在SpeedButton的OnClick事件里面添加如下代码
void __fastcall Tfrm::SpeedButton1Click(TObject *Sender)
{
frm->Close();
}

然后在主窗体里面创建了这个frm;
Tfrm *tmpfrm=new Tfrm(this);
tmpfrm->ShowModal();
delete tmpfrm;
frm创建了后我点SpeedButton1却关闭不了他，怎么办啊？SpeedButton没有ModalResult属性

[geochway]

应该可以关掉.
首先检查frm的OnClose事件是不是写了什么东西了.
另外你也可以直接用
frm->ModalResult=mrOk 等等直接从模态窗口返回.

[kmfangxun]

void __fastcall Tfrm::SpeedButton1Click(TObject *Sender)
{
this->Close(); //Tfrm *tmpfrm=new Tfrm(this);你生成了tmpfrm，　　　　　　　　　　 //所以frm->Close()关闭不了;指定本类的实列用this->Close(),
　　　　　　　　　　　　//或者默认指定 Close() ;

} 　　　　　　　　　　　
　　

[海鲨数据库架构师:曾凡坤.姒]

应该可以关掉.
首先检查frm的OnClose事件是不是写了什么东西了.
另外你也可以直接用
frm->ModalResult=mrOk 等等直接从模态窗口返回.

OnCloseQuery
acActive:=true;

[BorlandXBuilder]

不是吧,我怎么可以关掉呢,以前都可以的呀

[hong_qi]

void __fastcall Tfrm::SpeedButton1Click(TObject *Sender)
{
Close();
}