procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin if (Key=VK_F4) and ([ssAlt]=Shift) then
Key:=0;
end;end.//为什么在Form的OnKeyDown事件中就没有效果,按ALT+F4 窗口照样关闭,但是用在组件的OnKeyDown的事件中就有效【例如Edit】
Shift: TShiftState);
begin if (Key=VK_F4) and ([ssAlt]=Shift) then
Key:=0;
end;end.//为什么在Form的OnKeyDown事件中就没有效果,按ALT+F4 窗口照样关闭,但是用在组件的OnKeyDown的事件中就有效【例如Edit】
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货