Popup Menü auf erstellter Listbox

[shmia]

Zitat von busybyte:

TListBox(Rechtsklick.PopupComponent).Items.Add('Irgendein Text');

So ein harter Cast macht alles nur noch schlimmer.
Wenn man nicht sicher ist mit welcher Komponente man es zu tun hat, dann lässt man sich den Namen ausgeben:

Delphi-Quellcode:

procedure ShowCompName(c:TComponent);
begin
  if Assigned(c) then
    ShowMessage(c.Name+':'+c.ClassName);
end;

...
ShowCompName(Rechtsklick.PopupComponent);