http://fnse.de/S02/15S.gif
So, ich hab alles mal auf ein Minimum reduziert:
Delphi-Quellcode:
Var _Menu: TPopupMenu;
Procedure TForm1.Button2Click(Sender: TObject);
Begin
Hide;
End;
Procedure TForm1.Timer1Timer(Sender: TObject);
Var P: TPoint;
Item: TMenuItem;
Begin
//SetForegroundWindow(Application.Handle);
P := Mouse.CursorPos;
_Menu.Items.Clear;
Item := TMenuItem.Create(_Menu);
Item.Caption := 'Test 1';
_Menu.Items.Add(Item);
Item := TMenuItem.Create(_Menu);
Item.Caption := 'Test 2';
_Menu.Items.Add(Item);
_Menu.Popup(P.X, P.Y);
End;
Initialization
_Menu := TPopupMenu.Create(nil);
_Menu.AutoPopup := False;
_Menu.MenuAnimation := [maBottomToTop];
Finalization
_Menu.Free;
End.
Es läuft immer noch nur in D2009 richtig, aber nicht in D2006/TDE oder D7.
> z.B. Timer auf 10 Sekunden, Form verstecken und warten
Das Probem ist jetzt:
* solange SetForegroundWindow auskommentiert ist, wird das Popup angezeigt
allerdings schließt es dann nicht mehr richtig (es geht z.B. nicht zu, wenn man igendwo anders hinklickt, solange man nicht mal kurz in das Popup reingeklickt hab)
* ist SetForegroundWindow aktiv, dann öffnet und schließt es in D2009 richtig,
aber in den anderen Delphis geht es sofort wieder zu.
* außerdem arbeiter meine Anwendung im Hinergrund und auch beim Anzeigen des Popups hat die Taskbar (das Trayicon) den Fokus und nicht meine Anwendung
und das Popup schließt erst wichtig, wenn dieses oder die Anwendung den Fokus verliert
nur hat es ja standardmäßig keinen Fokus und demnach bleibt das Popup dann geöffnet (ohne SetForegroundWindow)