popupmenu item hinzufügen und onClick ereignis definieren!

[Alter Mann]

Hallo,

ich würde die sichere Art und Weise bevorzugen, etwa in der Art:

Code:

implementation

{$R *.dfm}

var
  _DynButton : function(): TMenuItem; stdcall;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  LH := LoadLibrary('test.dll');
  if LH <> 0 then
  begin
    @_GetDynButton := GetProcAddress(LH, 'CreateButton');
    PopupMenu.Items.Insert(PopupMenu.Items.Count, _GetDynButton);
  end
  else MessageDlg('Fehler-Nr.: ' + IntToStr(GetLastError), mtError, [mbOk], 0);
end;