FormKeyDown 不执行？解决方案

FormKeyDown 不执行？

Delphi(Pascal) code

procedure TFrm_Main.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin      if ((key = Ord('J'))) and (shift = [ssAlt, ssCtrl]) then        OpenForm(TFrm_ErrLog,Frm_ErrLog,Self);end;procedure TFrm_Main.FormCreate(Sender: TObject);begin      KeyPreview := True;      RemoveMenu(GetSystemMenu(Handle,   False),   SC_CLOSE,   MF_BYCOMMAND); //去掉Menu【X】按钮end;

我在FormKeyDown设置断点，程序就没有执行跳到里边去。

TFrm_Main 是 fsMDIForm



[解决办法]
fsMDIForm不可以的
fsMDIForm一般只是放菜单和工具栏，中间区域都要fsMDIChild盖住,设置窗体快捷键没用
可以用ActionList关联菜单和工具栏快捷键

查看更多 下一篇