popupmenu item hinzufügen und onClick ereignis definieren!

[Christian Seehase]

Moin ixtreme,

dann noch einmal in Kurzfassung:

Das OnClick Event ist vom Typ TNotifyEvent.
Diese ist folgendermassen deklariert:

Delphi-Quellcode:

type 
  TNotifyEvent = procedure(Sender: TObject) of object;

Durch dieses of object hat es einen unsichtbaren Parameter self, so dass eigentlich

procedure ButtonClick(self: TComponent;Sender: TObject); aufgerufen wird, wenn das OnClick Event aufgerufen wird.

Jetzt vergleich das mal mit Deiner "KlickMich" Prozedur.

[ixtreme]

ja aber ich kann die prcedure doch aus einer dll nicht so deklarieren?

Gruß

ixtreme.de

[Christian Seehase]

Moin ixtreme,

Zitat von ixtreme:

ja aber ich kann die prcedure doch aus einer dll nicht so deklarieren?

und warum nicht?

[EDIT]
Besser gesagt: Was spricht dagegen?
[/EDIT]

[ixtreme]

ok, habs versucht, dann findet er die procedure nicht mehr....


fehler: prcedure klickmich in datei.dll nicht vorhanden/gefunden!

[ixtreme]

oder es kommt beim aufruf die meldung:

calling conventions differ

[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;

[Christian Seehase]

Moin ixtreme,

Zitat von ixtreme:

fehler: prcedure klickmich in datei.dll nicht vorhanden/gefunden!

Das dürfte daran liegen, dass man beim Import exakt auf die Gross-/Kleinschreibung achten muss.
Wenn die Prozedur als KlickMich exportiert wird, und Du beim Import klickmich angibst, geht das schief.

Zitat von ixtreme:

calling conventions differ

Beim Import gibst Du als Aufrufkonvention stdcall an, in der DLL nicht.
Also entweder immer oder gar nicht.

[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;