我在form的keydown事件里写了东西,但是当我运行程序的时候好像没有起作用,哪位大侠知道是什么原因吗??
procedure TfrmBase.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F4 then showmessage('F4');
end;
procedure TfrmBase.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_F4 then showmessage('F4');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货