Question

我在delphi中编写了一个代码，将状态项插入系统状态栏，代码运行正常，状态项显示。我使用了一个透明图标，我应该完全点击图标（不是icon rect）来打开菜单。但如果我点击图标的透明区域，没有任何反应！我通过XCode编写相同的代码，每件事都没问题。

是否有任何机构对此案有所了解？我想点击状态图标的任何一点（彩色和透明点）打开菜单。

代码：

procedure createStatusItem;
var
    app_delg: AppDelegate;
    statusBar: NSStatusBar;
    statusItem: NSStatusItem;
    menu: NSMenu;
    pImage: Pointer;
    nsImage: NSImage;
begin
    app_delg := TAppDelegate.Create;
    TNSApplication.Wrap(TNSApplication.OCClass.sharedApplication()).setDelegate(AppDelegate(app_delg));
    statusBar := TNSStatusBar.Wrap(TNSStatusBar.OCClass.systemStatusBar);
    menu := TNSMenu.Wrap(TNSMenu.Alloc.initWithTitle(NSSTR('')));
    statusItem := statusBar.statusItemWithLength(NSVariableStatusItemLength);
    statusItem.retain;
    statusItem.setHighlightMode(true);
    statusItem.setAction(sel_getUid('onMenuClicked:'));
    statusItem.setMenu(menu);

    pImage := TNSImage.Alloc.initWithContentsOfFile(NSSTR('icon.ico'));
    nsImage := TNSImage.Wrap(pImage);
    statusItem.setImage(nsImage);
    nsImage.release;
end;

感谢。

Answer 1

设置menu属性时，不会触发操作。所以删除setmenu行。然后你需要一个目标。为它创建一个委托并将其设置为目标。

OCMock

OSX系统状态栏

1 个答案: