PopUpMenü zur Laufzeit mit Event OnClick Problem

[Piro]

Hi,

ich erstelle zur Laufzeit ein PopUpMenu welches einem TrayIcon zugewiesen wird.

Das erstellen des Menüs mit SubMenü bekomme ich schon hin aber wie kann ich jetzt den Menüeinträgen eine Procedure oder Funktion hinterlegen. Alles zur Laufzeit wohl gemerkt.

Hier mein Code - Was fehlt noch?

Derzeitiger Versuch auf das OnClick Event zu reagieren - funktioniert nur auf der 1.Ebene des Menüs nicht auf dem SubMenü.

Delphi-Quellcode:

procedure Tfrm_main.TrayHandler(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    //ShowMessage(Caption);
    // "&" Steht für den Unterstricht beim O
    If Caption = '&Open NetAdmin' then
    begin
      frm_main.Show;
      TrayIcon.IconVisible := False;
    end;
    If Caption = '&Exit' then
      Application.Terminate;
  end;
end;

Hauptprogramm für das Minimieren Event in die Taskleiste als TrayIcon

Delphi-Quellcode:

procedure Tfrm_main.TrayIconMinimizeToTray(Sender: TObject);
var
  i: integer;
  TrayMenu: TPopUpMenu;
  TrayItems: array[0..10000] of TMenuItem;
  content: array[0..6] of string;
begin
  content[0] := 'Open NetAdmin';
  content[1] := '-';
  content[2] := 'Documents';
  content[3] := 'Applications';
  content[4] := 'Network';
  content[5] := '-';
  content[6] := 'Exit';

  // MainMenu
  TrayMenu := TPopUpMenu.Create(self);
  TrayMenu.Images := ImageList1;
  for i:=0 to 6 do
  begin
    TrayItems[i] := TMenuItem.Create(Self);
    TrayItems[i].Caption := content[i];
    TrayMenu.Items.Add(TrayItems[i]);
  end;

  // SubMenu Begin
  // SubMenu Documents
  // SubMenu Applications

  // SubMenu Network
  for i:=0 to lv_net.Items.Count -1 do
  begin
    TrayItems[i] := TMenuItem.Create(Self);
    TrayItems[i].Caption := lv_net.Items[i].SubItems[0];
    TrayMenu.Items.Items[4].Add(TrayItems[i]);
    TrayItems[i].ImageIndex := 2;
  end;

  // Manage the Events
  TrayItems[0].OnClick := TrayHandler;
  TrayItems[2].OnClick := TrayHandler;
  TrayItems[3].OnClick := TrayHandler;
  TrayItems[4].OnClick := TrayHandler;     
  TrayItems[6].OnClick := btn_net_abortClick;

  TrayIcon.PopupMenu := TrayMenu;
end;

Ich möchte gerne auf alle Elemente des PopUpMenü zugreifen können und meine gewünschte Funktion dahinterlegen. Wie kann ich die jeweiligen Menüpunkte - egal MainMenü oder SubMenü - identifizieren und darauf reagieren?

Ich hoffe einer weiß Rat.

Gruß, Sven