非常奇怪的问题:为什么我的对话框无论是选确定还是取消,都返回mrCancel(20分)

非常奇怪的问题:为什么我的对话框无论是选确定还是取消,都返回mrCancel
问题出在哪里??谢谢指点!

主窗体:
TempLogin:=TFrmLogin.Create(Application);
if TempLogin.ShowModal() = mrCancel then
begin
self.StatusBar1.Panels.Items[5].Text:= 'datebase connnect success@ ' ;
Application.Terminate;
end else self.Show
在自己窗体内:
procedure TFrmLogin.BitBtn1Click(Sender: TObject);
begin
ModalResult := mrOK;
end;

procedure TFrmLogin.BitBtn2Click(Sender: TObject);
begin
ModalResult := mrCancel;
end;
以上就是我的源码.希望指点!

在设计时期修改BitBtn1和BitBtn2的ModalResult属性。

设置ModalResult的语句要放在OnClose事件里执行。

1.在设计时期修改BitBtn1和BitBtn2的ModalResult属性。??这个我已经做了
2.设置ModalResult的语句要放在OnClose事件里执行。??
那么我在Onclose中是赋值mrCancel 还是mrOk?? 如何确定???

不会吧
我以前做过可以的啊
你把
TempLogin:=TFrmLogin.Create(Application);
换成
TempLogin:=TFrmLogin.Create(nil);
试试

问题很可能不是在这几句代码了。可能出在别的地方。

procedure TFrmLogin.BitBtn1Click(Sender: TObject);
begin
ModalResult := mrOK;
end;
对谁的 ModalResult负值

帮顶!

http://www.source520.com

站长开发推广同盟 站长朋友的终极驿站
同时拥有海量源码电子经典书籍下载

http://www.source520.com/search/search.asp

"编程.站长"论坛搜索引擎-----为中国站长注入动力!