最近发现进销存系统有一个小问题,从前没有发现,
当系统出现系统登录介面时,这时我按下"ALT+F4"
就可以跳过系统登陆介面直接进入系统,
请问一下这个问题该怎么解决,谢谢各位了!
当系统出现系统登录介面时,这时我按下"ALT+F4"
就可以跳过系统登陆介面直接进入系统,
请问一下这个问题该怎么解决,谢谢各位了!
解决方案 »
- Delphi如何实现将“非常多的字符”写入注册表reg_binary类型的数据中?
- zlib解压20多k的文件
- 移动密码箱,不想自己一个人用,虽暂别Delphi却在用VCL思想写Java程序:)送工作流编辑器源码
- Delphi 如何在office中增加自己的菜单?
- 如何将一幅图分割成几块,然后再合并。
- 我的两家面包屋马上要开张了,放分!
- 关于exe+bpl模式开发程序的几点疑惑,希望大家看下。
- 有没有DELPHI5的BDE发布工具,不然还要装DELPHI!
- 如何通过汉字得到相应的拼音呢???
- 如何实现将word的表格和文本存入数据库中?
- 简单问题,大家帮忙!
- 自认为是高难度问题,高手请进,看是否有办法解决,谢谢!
begin
showmessage('frmLogin show');
end;
这样子显示登陆窗口
frmMain.show
else
close;
..var
Form1: TForm1;
i:boolean;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
i:=false;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=i;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
i:=not i;
form1.Close;
end;..
..
在FormKeyDown事件中加入:
{屏蔽ALT + F4}
if (Key = VK_F4) and (ssAlt in shift) then //注意同时要将FORM的 KEYPREVIEW设置为TRUE
Key:=0;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=115 then begin
showmessage('按了ALT+F4键');
abort;
end;
在OnKeyDown里写。procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in shift) then
Key:=0;
end;
Frmlogin:=Tfrmlogin.Create(Frmlogin);
Frmlogin.ShowModal;
if not isLogin then exit; Application.Initialize;
Application.CreateForm(TFrmMain, FrmMain);
Application.CreateForm(TFrmAbout, FrmAbout);
Application.Run;
if FrmLogin.showModal=mrOK then
FrmMain.Show;
alt+F4 关掉时modalresult肯定不是mrOK