注册 登录
编程论坛 Delphi论坛

finditem

runlwx 发布于 2013-11-05 21:07, 2173 次点击
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;?各代表什么啊
1 回复
#2
wp2319572013-11-08 09:21
关注
1