procedure TKsCoolTrayIcon.PopupAtCursor;
var
  CursorPos: TPoint;
  H:THandle;
  Found:Boolean;
  SL:TStringList;
begin
  if Assigned(PopupMenu) then
    if PopupMenu.AutoPopup then
      if GetCursorPos(CursorPos) then
      begin
        Application.ProcessMessages;
//        if not (csDesigning in ComponentState) then
        if (Screen.ActiveControl <> nil) then
        begin
          if (Screen.ActiveControl.Owner is TWinControl) then
              SetForegroundWindow((Screen.ActiveControl.Owner as TWinControl).Handle);
        end;    
            // Now make the menu pop up
        PopupMenu.PopupComponent := Self;
        PopupMenu.Popup(CursorPos.X, CursorPos.Y);
        PostMessage((Owner as TWinControl).Handle, WM_NULL, 0, 0);
      end;
end;

        if (Application.MainForm<>nil) and
           (Windows.IsWindowEnabled(Application.MainForm.Handle)) then   //add by wxh
        begin
// Now make the menu pop up
          SetForegroundWindow(Handle);
          PopupMenu.PopupComponent := Self;
          PopupMenu.Popup(CursorPos.X, CursorPos.Y);
          PostMessage((Owner as TWinControl).Handle, WM_NULL, 0, 0);
        end;
      end;

引言:

        if (Application.MainForm<>nil) and
           (Windows.IsWindowEnabled(Application.MainForm.Handle)) then   //add by wxh
        begin
// Now make the menu pop up
          SetForegroundWindow(Handle);
          PopupMenu.PopupComponent := Self;
          PopupMenu.Popup(CursorPos.X, CursorPos.Y);
          PostMessage((Owner as TWinControl).Handle, WM_NULL, 0, 0);
        end;
      end;

如果这样，有个问题，在Application.ShowMainForm是设为true的话，即使有Modal窗体，Windows.IsWindowEnabled(Application.MainForm.Handle))还是返回true 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

procedure TForm1.Timer1Timer(Sender: TObject); //用來判斷是否有效!!
begin
  if IsWindowEnabled(Application.MainForm.Handle)then 
    Caption:='OK' else
    Caption:='NO';
end;    procedure TForm1.Button1Click(Sender: TObject); //測試一
begin
  MessageBox(Handle,'','',0);
end;    procedure TForm1.Button1Click(Sender: TObject); //測試二
begin
  Form2.ShowModal;
end;    

function IsWinEnabled:Boolean;
var  i:Integer;
begin
  Result:=False;
  With Application do
    for i:=0 to ComponentCount-1 do
      if Components[i] is TWinControl then
        if Not IsWindowEnabled(TWinControl(Components[i]).Handle)then Exit;
  Result:=True;
end;

procedure TKsCoolTrayIcon.PopupAtCursor;
var
  CursorPos: TPoint;
  H:THandle;
begin         
  if Assigned(PopupMenu) then
    if PopupMenu.AutoPopup then
      if GetCursorPos(CursorPos) then
      begin
        { Win98 (but not Win95/WinNT) seems to empty a popup menu before
          closing it. This is a problem when the menu is about to display
          while it already is active (two click-events following each
          other). The menu will flicker annoyingly.
          Calling ProcessMessages fixes this. }
        Application.ProcessMessages;            { Bring the main form or its modal dialog to the foreground.
          This also ensures the popup menu closes after it loses focus. }
//        if not (csDesigning in ComponentState) then
{          if (Screen.ActiveControl <> nil) then
          begin
            if (Screen.ActiveControl.Owner is TWinControl) then
              SetForegroundWindow((Screen.ActiveControl.Owner as TWinControl).Handle);
          end;    //delete by wxh,对opendialog等非delphi的form，会把form盖在modal form上
}

        Application.Restore;     //add by wxh
        Application.BringToFront;     //add by wxh
        if (Windows.GetForegroundWindow<>Windows.GetActiveWindow) or
           ((Application.MainForm<>nil) and
            (Windows.IsWindowVisible(Application.MainForm.Handle)) and
            (Windows.IsWindowEnabled(Application.MainForm.Handle))) then   //add by wxh            begin
// Now make the menu pop up
          SetForegroundWindow(Handle);
          PopupMenu.PopupComponent := Self;
          PopupMenu.Popup(CursorPos.X, CursorPos.Y);
          PostMessage((Owner as TWinControl).Handle, WM_NULL, 0, 0);
        end;
      end;
end;