PopupMenü poppt nur ganz kurz auf

[himitsu]

Moin ihr,

ich hab praktisch soeine Prozedur

Delphi-Quellcode:

Procedure TToolMain._ShowMenu(MenuID: Integer);
  Var Item: TMenuItem;
    P: TPoint;

  Begin
    SetForegroundWindow(Application.Handle);
    _Menu.Items.Clear;
    ...
    Item := TMenuItem.Create(_Menu);
    Item.Caption := 'Optionen';
    Item.OnClick := OptionClick;
    _Menu.Items.Add(Item);
    Item := TMenuItem.Create(_Menu);
    Item.Caption := 'Exit';
    Item.OnClick := ExitClick;
    _Menu.Items.Add(Item);

    P := Mouse.CursorPos;
    _Menu.Popup(P.X, P.Y);
  End;

diese erstellt eigentlich nur ein PopupMenü und "soll" es anzeigen

erstellt wurde es bei Programmstart so

Delphi-Quellcode:

_Menu               := TPopupMenu.Create(Application);
_Menu.AutoPopup     := False;
_Menu.MenuAnimation := [maBottomToTop];

Sooo, nun funktioniert es unter D2009 komischer Weise,

aber in TurboDelphi und Delphi 7 überhaupt nicht.
Dort taucht es ganz kurz auf und verschwindet sofort wieder.

In Delphi 2009 bleibt es zwar sichtbar und ist auch bediehnbar, allerdings wird die Abarbeitung des Programmes wärend _Menu.Popup angehalten, also die nächste Programmzeile wird erst nach Schließen des Popups ausgführt.
(hier wäre es schön, wenn das Programm dort weiteraufen würde, aber das könnte och notfalls noch verkraften)

Aber daß es in älteren Delphis nicht funktioniert, wundert mich etwas


Ach ja:
- es handelt sich um eine VCL-Anwendung ohne Fenster (dieses Optionsfenster wird nur manchmal später manuell erzeugt)

Delphi-Quellcode:

Program theTool;

Uses Main, Forms;

{$R *.res}

Begin
  Application.Initialize;
  Repeat
    Try
      Application.HandleMessage;
    Except
      Application.HandleException(Application);
    End;
  Until Application.Terminated;
End.

Statt der Schleife hätt ich auch gern Application.Run; genommen, aber ohne Fenster beendet sich dieses ja sofort wieder.


[add]
wenn ich Pech hab, werd ich wohl doch noch die Options-Form ständig unsichtbar im Hintergrund mitlaufen lassen müssen