Popup Item´s in Runtime erzeugen ?

[neolithos]

Delphi-Quellcode:

var f : TPopupMenu;

  f.Items.Add(NewItem('Caption', 0, // Shortcut
    false, // Checked
    true,  // Enabled
    MenuClick, // TNotifyEvent 
    0, // HelpCtx
    '' // Componenten-name
    ));


procedure T???.MenuClick(Sender : TObject);
begin
  DoSomething;
end;

neben Add gibt es auch noch Insert.

mehr in der Delphi Hilfe under TMenuItem