procedure TfrmCarReal.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//屏蔽“alt+f4”键对窗口的关闭操作
if (ssAlt in Shift) and (key=115) then
Key:=0;
//f9打开口令窗口
if Key=120 then begin //F9
iIsOpenBox:=0;
If Not Assigned(frmLogin) Then begin
frmLogin:=TfrmLogin.Create(Self);
end;
frmLogin.ShowModal;
end;
end;
上面的代码实现屏蔽窗体frmCarReal的alt+F4,并且当F9按下时,弹出窗体frmLogin,当在frmCarReal窗体上使用Page Control控件后,上面的FormKeyDown事件就失效了,用groupbox等控件就好使,一直找不到原因!
各位老大帮帮忙啊!着急中!
Shift: TShiftState);
begin
//屏蔽“alt+f4”键对窗口的关闭操作
if (ssAlt in Shift) and (key=115) then
Key:=0;
//f9打开口令窗口
if Key=120 then begin //F9
iIsOpenBox:=0;
If Not Assigned(frmLogin) Then begin
frmLogin:=TfrmLogin.Create(Self);
end;
frmLogin.ShowModal;
end;
end;
上面的代码实现屏蔽窗体frmCarReal的alt+F4,并且当F9按下时,弹出窗体frmLogin,当在frmCarReal窗体上使用Page Control控件后,上面的FormKeyDown事件就失效了,用groupbox等控件就好使,一直找不到原因!
各位老大帮帮忙啊!着急中!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货