Invalid Class Typecast

[DGL-luke]

oha, dann wirds ein wenig haariger.

mal sehen...

zuerst machst du im private-abschnitt deiner Formdeklaration einen listbox-pointer rein:

Delphi-Quellcode:

type TForm1=class(TForm);
...
private
currentlistbox:TListBox;

dann machst du ein OnContextPopup für deine listboxen:

Delphi-Quellcode:

procedure TGLForm.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
currentlistbox:=(sender as TListBox);

handled:=false;
end;

dieses ereignis musst du natürlich allen listboxen zuweisen, die das popup haben.

du kannst dann in deinem menuitem-onclick einfach currentlistbox.items verwenden.