Form的调用问题

[geniusboy]

procedure TfrmTest.N2Click(Sender: TObject);
begin
Application.CreateForm(TfrmSetPassword,frmSetPassword);
try
frmSetPassword.ShowModal ;
finally
frmSetPassword.Free ;
end;
end;

我用上面的程序调用一个Form,但Form里执行一个按纽事件完毕后,就直接返回主窗口了,有没有办法避免这个问题.

[aiunong]

procedure TfrmTest.N2Click(Sender: TObject);
begin
Application.CreateForm(TfrmSetPassword,frmSetPassword);
frmSetPassword.ShowModal ;
frmSetPassword.Free ;
end;

[初心2]

调用的form的按扭的代码是什么？

[geniusboy]

procedure TfrmSetpassword.BitBtn1Click(Sender: TObject);
var
ReturnValue:Integer;
begin
ReturnValue:=DMHome.ChangePassword(DBLupCbxUserId.Text ,edtInipassword.Text );
if ReturnValue=1 then
ShowMessage('初始化密码成功!');
end;

请看看,谢谢!

[huojiehai]

不知道你要什么，你在主Form中打开，返回当然是返回到主Form啦

[geniusboy]

我想在主窗口中调用一个frmSetPassword,然后由Form里的一个按纽返回主窗口.
而这段代码会直接返回主FormTest.
procedure TfrmTest.N2Click(Sender: TObject);
begin
Application.CreateForm(TfrmSetPassword,frmSetPassword);
frmSetPassword.ShowModal ;
frmSetPassword.Free ;
end;

[初心2]

你贴出来的东东都没错，错在别的地方。仔细检查一下。

[geniusboy]

up

[xjlqlqlq]

你是否有在按钮事件完成后，有关闭窗口的调用，

frmSetPassword.ShowModal；//如果没有关闭 frmSetPassword 窗口是不会往下执行代码的

[geniusboy]

那个按纽事件就这么点内容,还望xjlqlqlq(小虫)指点一二.
procedure TfrmSetpassword.BitBtn1Click(Sender: TObject);
var
ReturnValue:Integer;
begin
ReturnValue:=DMHome.ChangePassword(DBLupCbxUserId.Text ,edtInipassword.Text );
if ReturnValue=1 then
ShowMessage('初始化密码成功!');
end;

[geniusboy]

各位,找到病因了.
我使用BitBtn按纽就会出现上面的问题,只要换成普通的Button就一切正常了.
但还是不知道BitBtn这种按纽怎么会出现这样的情况?

[whqcfp]

用 BITBTN 时，它有返回值，
而这个返回值正好被 SHOWMODAL 所使用。
这就是它返回的原因。
而用普通的按钮时是没有返回值的，
所以不会出现上面是的情况。

[hiflower]

一定是你改变了 BitBtn 的 ModalResult 属性的值了，如果其值为 mrNone，则不会直接返回。
普通的 Button 也有这个属性的。

[thebest123]

ReturnValue:=DMHome.ChangePassword(DBLupCbxUserId.Text ,edtInipassword.Text );请问这个函数是什么意思呀？！