Question

delphi MAIN主窗体如何调用其他窗体,其他窗体执行完命令然后返回主窗体

主窗体启动时调用其他窗体，登录窗体。等登录窗体正常输入用户密码后，正常返回到主窗体，由主窗体继续执行其他操作！如何编写代码？我的在登录窗体代码最后有close;关闭登录窗体，结果主窗体也跟着关闭了。如果写hide 主窗体是失效状态 ！不能执行任何操作！怎么办呢？
begin
table1.Open;
Table1.SetKey;
table1.FieldByName('用户名').AsString:=Edit1.Text;
table1.FieldByName('密码').AsString:=edit2.Text;

if table1.GotoKey then
begin
username:=edit1.Text;
password:=edit2.Text;
x1:=table1.FieldByName('管理权限').AsBoolean;
x2:=table1.FieldByName('操作权限').AsBoolean;
x3:=table1.FieldByName('查询权限').AsBoolean;
table1.Close;
close;
end
else
begin
。。。。

Answer 1

在主窗体写form2.showModel(); 应该就行了。弹出的模式窗体。form2.close没错。一定是其他的地方的问题。

追问

procedure TForm1.FormActivate(Sender: TObject);

begin
username:='';
password:='';
x1:=false;
x2:=false;
x3:=false;
form2.showmodal;
if username'' then
begin

这是我主窗体的代码 有FORM2.showmodal();

追答

close的时候前面指定一下子窗体的unit文件, 比如unit2.form2.close();

追问

unit2.form2.close();
end
else
begin
table1.Close;
。。。。
if edit1.tag=3 then
begin
Application.Terminate;
end;
改了代码，结果还是输入用户密码就关闭了所有窗体！

追答

应该是Application.Terminate这行代码出的问题，把这行用//注释下试试，因为unit2.form2.close();起不到把程序全部关闭的作用。

追问

Application.Terminate;//输入错误3次，自动退出程序 是这样加吗？试了还是不行！
我的意图是如果正确输入用户密码进入系统，错误超过三次就自动关闭程序！

追答

我的意思是可能判断有问题，你可以用排除法一点一点的排除问题所在。如果注释了Application.Terminate;还跳出的话。就可以把问题锁定在上面了。
// 加的前面，看到Application.Terminate变成蓝色就代表注释了。

追问

哦 我再琢磨琢磨吧 谢谢你!
//unit2.form2.close(); 这句加注释后，不自动关闭了！但情况是form2 form1都不关闭。就跟没执行任何操作似的！

追答

没事，这问题我以前也没遇到过，多交流学习经验。

追问

问题还是存在呢，我想正确输入用户密码后，返回到主窗体 .现在情况是输入用户密码后，form2没有关闭。我能判断出是这个地方的问题了，但应该怎么改呢？嘿嘿 还请多多指教！
加注释后 是不是把这句代码屏蔽了？！

追答

是屏蔽了，你试试把unit2.form2.close();这行代码放到函数的最后执行，可能是if的时候条件不对，所以关不了form2.

追问

那还有点不太明白，这句不加注释前 输入用户密码 就把所有窗体都关闭了！加注释后 就不执行关闭命令。为什么？加注释的作用是不是把本句代码屏蔽 或者说不执行这句代码的意思？

追答

Application.Terminate的意思是关闭当前程序的进程。之前你注释掉所以程序没关闭，就可以说明是if edit1.tag=3 这个判断有问题。因为你没写3次就已经进入这个里面执了Application.Terminate，所以程序就关闭了。还有unit2.form2.close();不要照搬我的代码，看看你子窗体的unit文件叫什么名字就写什么名字。或者用你以前的close();放到最后执行试试也可以。

追问

我的单元文件就是unit2 ，我注释掉Application.Terminate 还是关闭程序的。是注释掉unit2.form2.close()； 这句不关闭
还是我自己多试试吧 呵呵！谢谢你耐心的指导,我想问最后一个问题，close()后面加个括号与不加有什么区别呢？

追答

功能上没什么区别delphi这两种写法都识别，看习惯吧。如果c和java写多了习惯性就带个括号。