Delphi自动弹出窗体

来源:百度知道 编辑:UC知道 时间:2024/05/20 07:32:53
我建一个from2,然后在其中添加一个CheckBox1,我想设置成的效果是:运行后当我选中from1中的CheckBox1时,下次在登录窗体登录成功后,就首先弹出from2,当我不选中from1中的CheckBox1时,下次在登录窗体登录成功后就不先弹出from1,只有我在点击链接到from2的Button1时候它才显示出来!请问该如何做呢?请高手支招!如果满意再加分!
不好意思!我在说清楚一点!form1为登录窗体,登陆成功后弹出form2,form2中有个Button1,点击Button1则弹出form3.我想实现的是:选中form3中的勾选按钮(CheckBox或者其他能实现的都行),则下次登录成功后先弹出form3,此时关了form3才弹出form2.如果form3中没有选中勾选按钮,则下次登陆成功后还是先弹出form2!

看了下你的意思,你可以数据库中搞个变量记录选中了还是没选中
或ini中搞一个记录的也行,然后显示的时候判断下这个变量来控制

①在Unit1单元中引用unit2;
②在form1的on show事件中 添加如下代码

procedure TForm1.FormShow(Sender: TObject);
begin
if checkbox1.Checked then
form2.ShowModal ;
end;