D
DaChu
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{if Key = 91 then
begin
Label1.Caption := 'windows';
Key := 0;
exit;
abort;
end;
}
if (Shift = [ssAlt]) and (Key = vk_F4) then
begin
ShowMessage('cannot close');
abort;
end;
end;
可以捕捉到这个键值，但不能屏蔽它，怎么办呢？
还有那个Files键
Shift: TShiftState);
begin
{if Key = 91 then
begin
Label1.Caption := 'windows';
Key := 0;
exit;
abort;
end;
}
if (Shift = [ssAlt]) and (Key = vk_F4) then
begin
ShowMessage('cannot close');
abort;
end;
end;
可以捕捉到这个键值，但不能屏蔽它，怎么办呢？
还有那个Files键