popupmenu item hinzufügen und onClick ereignis definieren!

[scp]

Das hier geht, ist aber nicht sehr elegant:

Delphi-Quellcode:

type
  TNotifyEventMP = record
    Proc : procedure(self : TComponent; Sender: TObject);
    self : TComponent;
  end;

procedure KlickMich(self : TComponent; Sender: TObject); // Diese hier kann external, also in der DLL sein
begin
  ShowMessage('Sender: ' + Sender.ClassName);
end;

const
  KlickMichMP : TNotifyEventMP =
    (
    Proc : KlickMich;
    self : nil;
    );

procedure TForm1.Button2Click(Sender: TObject);
begin
  MenuItem1.OnClick := TNotifyEvent(KlickMichMP);
end;