财务软件版1楼: 非常奇怪的问题:为什么我的对话框无论是选确定还是取消,都返回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;
以上就是我的源码.希望指点!

2楼: 在设计时期修改BitBtn1和BitBtn2的ModalResult属性。 如免费超市管理软件

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

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

5楼: 不会吧

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

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

财务软件版7楼: procedure TFrmLogin.BitBtn1Click(Sender: TObject);
begin
ModalResult := mrOK;
end;
对谁的 ModalResult负值

8楼: 帮顶!

http://www.source520.com

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

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

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