我现在已做好了一个应用软件,但我想再加入自己设计的登录密码窗口来进行保护。但不知怎样加入?应用程序的窗口名:MainForm;密码窗口名为:f_login
解决方案 »
- case back_key when "0" then "能来" WHEN 1 THEN "不能来"
- 求助:如何设置导出的excel的列的属性,统一设置成文字列????
- 急切求助:如何使用WordView及XlView(或者是NextOffice)浏览文件并控制修改与打印功能?
- 有没有工具可以把单文件EXE转为能在IE上运行
- 在dbcombobox组件中,items变成一个表中的某一个字段的所有数据?
- 打包问题.
- spyed过来领分
- 在函数传递参数时,如何将二维数组作参数
- 我写一个把图片存入数据库的小软件,但是在我把图片存入数据库后,再浏览时点确定就出错了。
- 请问:如何在Delphi中实现双击打开相应文件
- 运行时如何生成一个可视控件:比如TEdit 控件
- 如何制作彩蛋?(100分)
或者在dpr文件中直接加入创建一个密码登录窗口的代码
{$R *.res}begin
Application.Initialize;
fmsplash:=tfmsplash.Create(fmsplash);
fmsplash.Show;
fmsplash.Refresh;
fmsplash.close;
fmdl:=Tfmdl.Create(Application);//登录窗体
if fmdl.ShowModal <>2 then
begin
Application.CreateForm(Tfmbackgroud, fmbackgroud);
Application.CreateForm(Tfmjsh, fmjsh);
Application.CreateForm(Tfmyhzl, fmyhzl);
Application.CreateForm(Tfmedt, fmedt);
Application.CreateForm(Tfmxtshzh, fmxtshzh);
Application.CreateForm(Tfmuedit, fmuedit);
Application.CreateForm(Tfmlook, fmlook);
Application.CreateForm(Tfmpass, fmpass);
Application.CreateForm(Tfmchange, fmchange);
fmdl.Free;
Application.Run;
end
else begin
fmdl.Free;
DM.Free;
Application.Terminate;
end;end.
在onpaint事件中,如果那个变量为假则弹出f_login,但登录成功后,要把那个变量的值设为true,否则登录窗口会出来个不停