procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);

var

  Item: TMenuItem;

begin

  Item := MainMenu1.FindItem(Msg.CmdType, fkCommand);

  if Item <> nil then

    Item.Click;

  inherited;

end;

问问这段代码是是意思啊
finditem？Msg.CmdType？fkCommand？ Item.Click？  inherited;？各代表什么啊

关注