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

[himitsu]

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)

[himitsu]

Hatte grad eben 'nen Gedankenblitz

SetForegroundWindow(PopupList.Window); und es scheint zu laufen

[Satty67]

Jetzt wo Du den Thread als Alleinunterhalter gestaltet und auch gelöst hast fällt mir das Problem samt Lösung auch wieder ein (zu spät und sinnlos).

Man könnte es als Spam werten oder als Bestätigung, dass Deine gefundene Lösung die richtige ist

Delphi-Quellcode:

case Message.LParamLo of
  WM_RBUTTONUP: begin
    SetForegroundWindow(Handle);
    PopupMenu1.Popup(tp.x,tp.y);

[himitsu]

im Prinzip hatte ich deinen Vorschlag schon, nur daß es weder mit Form- noch Application-Handle richtig funktionierte,

aber das Nachrichtenfenster für Popups, welches die VLC erstellt, hilft
(wobei ich es schon komisch finde, daß nicht gleich das Application-Nachrichtenfenster genutzt und stattdessen noch ein Weiteres erstellt wird)

[Satty67]

Hmmm, hängt evtl. mit dem Status des gewählten Fensters zusammen, das man als "Mutter" des PopUp vorwählt.

Auch ganz nett, was meine Bibliothek eben noch ausgespuckt hat, man beachte das Datum (Namen zensiert):

Zitat:

From ******@uni-bonn.de Mon Oct 20 13:18:54 1997
To: ****** ********* <******@mailserv.uni-giessen.de>
Newsgroups: de.comp.lang.pascal.delphi
Subject: Re: Frage: Popupmenu im Taskbar
From: **** ***** <*****[e-mail]>
Date: Mon, 20 Oct 1997 13:18:54 +0100

Tach ******,

wenn du meinst, daß das PopupMenu danach so in der Gegend rumhängt und erst
irgendwann mal zufällig verschwindet, dann :
Bevor du das PopuMenu mit popup aufrufst, mußt du
SetForegroundWindow(form.handle)
Dann weiß das PopupMenu soz. zu wem es gehört und schließt sich auch wieder
vernünftig.

Tschau,
****

****** ******** wrote:

> Hi!
> Mein Programm erscheint als Icon im Taskbar und bietet Funktionen ueber
> ein Popupmenu an. Wie kann ich dass Menu schliessen, wenn kein Menupunkt
> ausgewaehlt, sondern eine andere Anwendung oder der Explorer aktiv wird?
>
> ******
>
> P.S. Bitte auch per email antworten.

PS: Sehe gerade, der Fehler ist invers, aber wohl gleiche Ursache.