Klick wird nicht erkannt!?

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.WndProc(var Message: TMessage); 
begin 
  case Message.Msg of 
    WM_TRAYMSG: 
      case Message.lParam of
        WM_RBUTTONDOWN : begin
                           ShowMessage('Blupp');
                         end;
      end; 
    else
      inherited WndProc(Message); 
  end; 
end;

Ja wo bleibt denn meine Message? Die erscheint einfach nicht.

Grüsse, Daniel

[Jens Schumann]

Hallo Daniel,
hast Du WM_TRAYMSG in TNotifyIconData auch als uCallBackMessage angegeben?

[Daniel B]

Hallo Jens,

ja, habe ich. Linker Doppelklick geht, aber rechter Einfachklick nicht. Seltsam, seltsam...

Grüsse, Daniel

[Jens Schumann]

Hallo Daniel,
es ist wirklich seltsam. Eigentlich müsste es funktionieren.
Poste daoch mal den kompletten Code:

[S - tefano]

Hi,

Kenn mich damit jetz nich sooo astrein aus, aber gibts vielleicht irgendwo (bei der Form, beim TNA-Symbol) ne Eigenschaft die den Rechtsklick noch für ein eventuelles PopUp- Menü reserviert hat, die du erst "falsen" musst?

Bis dann,

S - tefano

[Jens Schumann]

Hallo Daniel,
es ist wirklich seltsam. Eigentlich müsste es funktionieren.
Poste doch mal den kompletten Code.
Ich verwende für den Botschaftswert bei TBNA Anwendungen immer RegisterWindowMessage um eine systemweit eindeutige uCallBackMessage zu bekommen

[Daniel B]

Hallo Jens,

ich vermute eher das die Klick schon "erkannt" wird, aber die Message an sich warum auch immer nicht angezeigt wird.

Delphi-Quellcode:

const 
  WM_TRAYMSG = WM_USER + 10;
var
  NID : TNotifyIconData = (
    cbsize           : sizeof(TNotifyIconData);
    uID              : 0;
    uFlags           : NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage : WM_TRAYMSG;
    szTip            : 'Blupp';
  );

Delphi-Quellcode:

procedure TForm1.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_TRAYMSG:
      case Message.lParam of
        WM_RBUTTONDOWN : begin
                           ShowMessage('Blupp');
                         end;
      end;
    else
      inherited WndProc(Message);
  end;
end;

Grüsse, Daniel

[Daniel B]

Hallo,

Zitat von S - tefano:

Kenn mich damit jetz nich sooo astrein aus, aber gibts vielleicht irgendwo (bei der Form, beim TNA-Symbol) ne Eigenschaft die den Rechtsklick noch für ein eventuelles PopUp- Menü reserviert hat, die du erst "falsen" musst?

Nein, genau das muss ich es erst noch Createn! Ich will beim Rechtsklick ein Menü aufklappen das ich aber vorher noch Createn muss usw. MenüItem erzeugen usw. Leider gibts sowas nciht fertig und man muss das alles von Hand machen. Daher habe ich mir gedacht, um überhaupt zu sehen ob der Rechtsklick überhaupt geht, zeigste mal ne Message an, aber das geht ja schon nicht, Menü kommt dann danach.

Grüsse, Daniel

[Jens Schumann]

Hallo Daniel,
du setzt das Feld Wnd in TNotifyIconData nicht auf das Handle des Formulars . Woher weiss dann das System an welches Fenster es die Nachricht schicken soll ?

[Daniel B]

Hallo Jens,

und wie mach ich das? Ich beschäftige mich grad zum ersten mal mit dem API-Mis*.

Grüsse, Daniel