procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var akey:Integer; iRtn:Shortint; begin aKey := VK_MENU; iRtn := GetKeyState(akey); if (iRtn And $80) <> 0 then begin aKey := VK_F4; iRtn := GetKeyState(akey); if (iRtn And $80) <> 0 then CanClose:=False; end; end; 这样可以屏蔽Alt+F4,同时允许点击关闭按钮。
to:delphi_wo(Cser) 你屏蔽掉了close事件,并没有屏蔽掉ALT+F4键
我是路过的,请教一个问题: if (iRtn And $80) <> 0 then 这句话是什么意思?$80代表什么?
在窗体的CloseQuery事件里
canclose:=a;想让窗体允许用Alt+F4 把a=ture 就ok了
var
akey:Integer;
iRtn:Shortint;
begin
aKey := VK_MENU;
iRtn := GetKeyState(akey);
if (iRtn And $80) <> 0 then
begin
aKey := VK_F4;
iRtn := GetKeyState(akey);
if (iRtn And $80) <> 0 then
CanClose:=False;
end;
end;
这样可以屏蔽Alt+F4,同时允许点击关闭按钮。
你屏蔽掉了close事件,并没有屏蔽掉ALT+F4键
这句话是什么意思?$80代表什么?