TNA und Popup-Menü

[TheMiller]

Hi Leute,

ich habe jetzt mein Programm bei Inaktivität in die TNA (neben die Uhr) geschickt. Jetzt möchte ich, dass beim Rechtsklick auf dieses Icon ein Popupmenü geöffnet wird. Wie stelle ich das an. So sieht mein Code (bisher) aus:

Delphi-Quellcode:

procedure TForm1.WMTASKBAREVENT(var message: TMessage);
begin
  case message.LParamLo of
    WM_LBUTTONDOWN    : BEGIN

                        end;
    WM_RBUTTONDOWN    : begin

                        end;
    WM_LBUTTONDBLCLK  : begin
                          
                        end;
  end;
end;

Mit welchem Befehl öffne ich ein Popupmenü?
danke im Vorraus

[Sharky]

Zitat von DJ-SPM:

Mit welchem Befehl öffne ich ein Popupmenü?
danke im Vorraus

Zitat von Aus der Onlinehilfe:

procedure Popup(X, Y: Integer); virtual;

Beschreibung

Rufen Sie Popup zur Anzeige des Popup-Menüs auf. Das Menü wird an den Bildschirmkoordinaten eingeblendet, die in X und Y (in Pixeln) angegeben sind.

[TheMiller]

Danke

funzt!

Das Forum ist echt klasse