procedure-übergabe

[gekmihesg]

hallo

ich versuche einem popupmenü mit einer procedure ein item zuzuordnen. wahlweise soll man halt auch noch gleich eine onClick procedure übergeben können.
hier mal der code:

Delphi-Quellcode:

procedure TForm1.ReadNaClick(Sender: TObject);
begin
  { ... }
end;

procedure TForm1.userlvMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

  procedure AddPopupItem(text: string; ocladdr: Pointer = nil);
    var a: TMenuItem;
    begin
      a := TMenuItem.Create(userlvpop);
      a.Caption := text;
      if ocladdr <> nil then
        a.OnClick := TNotifyEvent(ocladdr^);
      userlvpop.Items.Add(a);
    end;

var user: TUser;
begin
  if (userlv.Selected = nil) or (button <> mbRight) then exit;
  user := TUser(users.Items[indexbyname(userlv.Selected.Caption)]);
  AddPopupItem(user.ip);
  if user.status = stat_away then
    begin
      AddPopupItem('-');
      AddPopupItem('"Abwesend"-Nachricht lesen',@ReadNaClick); // fehler: Varible erforderlich
    end;
  userlvpop.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
  userlvpop.Items.Clear;
end;

und dann noch ne frage: wenn ich userlvpop.Items.Clear aufrufe werden die items dann richtig freigegeben?

achja ;) was mache ich in dem code falsch?

[Stevie]

Delphi-Quellcode:

procedure AddPopupItem(text: string; OnClickProc: TNotifyEvent = nil);
{...}
AddPopupItem('"Abwesend"-Nachricht lesen', ReadNaClick);

Müsste auch richtig freigegeben werden...

[gekmihesg]

ok danke.
also es bringt jetzt keine fehlermeldung mehr ;)
wenn ich in der procedure AddPopupItem a.click aufrufe (nachdem ich das onclick-event auf die übergebene procedure zugewiesen habe) funktioniert auch alles. nur wenn ich dann später auf den eintrag im popupmenu klicke tut sich garnix...
was soll das wieder?

[gekmihesg]

habs grad selber rausgefunden. der code läuft natürlich weiter wenn das popup schon offen is. dadurch wird das item wieder freigegeben und is dann nurnoch in der anzeige vorhanden...

[Stevie]

Uah, das Clear sollte am Anfang des Events stehen und nicht nach dem Popup!
Ein Popup ist imho nicht Modal, d.h., die Items werden gelöscht, bevor du nen MenuItem angeklickt hast.