我想问下,现在我窗体2添加了 密码,也可以用了。打开程序出现输入密码框,我可以输入密码进去,也可以直接把密码窗口给关了,密码都不需要输入就进去了,怎样避免这个问题,可以把窗口2的关闭(x)给取消了吗?或者别的办法??
procedure Form1.Create(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
end;

展开全部
收起
5回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Emily3

    19人对此回答表示赞同

    把密码框做成一个窗体 然后 show 出来你的程序 追问
    展开
    19
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Shyanne

    18人对此回答表示赞同

    procedure Form1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
    写加上条件如果什么什么就执行下面语句 then
    begin

    CanClose := False;//表示关闭无效
    end;

    end;
    就可以帮到你了!
    展开
    18
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 马克Mak

    16人对此回答表示赞同

    假定两个窗体frmpassword,frmMain,其中frmpassword为自动建立的程序,frmmain不自动建立。
    在frmPassword里定义一个变量Pass:Boolean,
    在formCreate事件中,默认这个值为False
    当输入密码正确时将Pass:=True
    在frmPassWord的OnClose事件中判断,当pass为True时,打开frmmain,否则,执行Application.Terminite;使程序终止
    展开
    16
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Gina失踪了

    15人对此回答表示赞同

    你可以设置form1,form2,form3三个窗体,用form1来调用form2,在form2中判断密码是否正确,如果正确,则调用form3,否则不调用,form2是输入密码的窗体,正接关闭什么也不做
    展开
    15
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Carson猫

    7人对此回答表示赞同

    其它代码都不要,将主窗体创建事件代码按下面的写一下,试试
    procedure TForm1.FormCreate(Sender: TObject);
    VAR
    Form2: TForm2;
    begin
    Form2 := TForm2.Create(Application);
    Form2.Button1.ModalResult:=mrOk; //序列值是1
    Form2.Button2.ModalResult:=mrC
    展开
    7
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部