Plugin mit Events über Interfaces

**geskill**

Hallo,
habe mich an diesem

Thread orientiert, jedoch habe ich noch ein kleineres Problem. Es geht darum mittels Plugin u.a. Menu Einträge dem MainMenu im Hauptprogramm hinzuzufügen. Das funktioniert gut, lade ich das Plugin werden diese angezeigt, entlade ich es wieder, werden diese entfernt. Nun möchte ich aber auch darauf reagieren, wenn der Nutzer auf ein solchen Menu Eintrag klickt. Leider scheitert es an dieser Stelle, irgendwo muss da noch ein kleiner Fehler sein.
Ich benutze zwar nicht die Delphi eigenen TMainMenu Komponenten, sondern die von DevExpress, an sich spielt es aber keine große Rolle.

Auszug aus der uApiMainMenu.pas

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TIMenuItem.MenuItemOnClick(Sender: TObject); // OnClick Event wenn auf das

var                                                    // visuelle TMenuItem sprich DevExpress TMenuItem geklickt wird

  MenuItem: TIMenuItem;

begin

  MenuItem := TIMenuItem.Create(Sender as TdxBarItem);

  try

    if (@FNotifyEvent <> nil) then

      FNotifyEvent.OnNotify(MenuItem);  // hier kommt die Zugriffsverletzung

  finally

    MenuItem.Free;

  end;

end;

Interface:

markieren

Delphi-Quellcode:

			type

  INotifyEvent = interface(IUnknown)

    ['{EE9407DD-2337-4DFC-BC35-A40C4FA0A1A7}']

    procedure OnNotify(const Sender: IUnknown); stdcall;

  end;

PlugIn:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TNotifyMethod = procedure(const Sender: IUnknown) of object;

  TINotifyEvent = class(TInterfacedObject, INotifyEvent)

  private

    FOnNotify: TNotifyMethod;

  public

    property OnNotifyHandler: TNotifyMethod read FOnNotify write FOnNotify;

    procedure OnNotify(const Sender: IUnknown); stdcall;

  end;

  TMirrorSort = class(TAppPlugIn)

  private

    // FNotifyEvent:TINotifyEvent;

    procedure OnClick(const Sender: IUnknown);

  public

    function GetName: WideString; override; safecall;

    function Start(const AAppController: IAppController): Boolean; override; stdcall;

    procedure Stop; override; stdcall;

  end;

var

  FAppController: IAppController;

  FNewMenuItem: IMenuItem;

  FNotifyEvent: TINotifyEvent;

implementation

{$R *.dfm}

procedure TINotifyEvent.OnNotify;

begin

  // würde es klappen müsste er beim onklick zuerst hier rein springen

  if (@FOnNotify <> nil) then

    FOnNotify(Sender);

end;

procedure TMirrorSort.OnClick;

begin

  // dannach diesen Code ausführen

  ShowMessage('OnClickFunktioniert ;)');

end;

function TMirrorSort.Start; // plugin wurde geladen und aktiviert

begin

  FAppController := AAppController; // bekommt hiermit ein Zugriff auf die Hauptanwendung

  FNotifyEvent := TINotifyEvent.Create;

  FNotifyEvent.OnNotifyHandler := OnClick;

  with FAppController.MainMenu.GetMenuItems.GetItem(3) do

    FNewMenuItem := InsertMenuItem(GetMenuItems.GetCount, 'MirrorSort', 'This sorts', 'name', 0, 0, FNotifyEvent);

  Result := True;

end;

procedure TMirrorSort.Stop; // hiernach wird das plugin entladen

begin

  FAppController.MainMenu.GetMenuItems.GetItem(3).GetMenuItems.RemoveItem(FNewMenuItem);

  FNotifyEvent := nil;

end;

Im Anhang habe ich nochmal den kompletten Code, der die Interfaces implementiert.

EDIT:
Problem lag/liegt nicht an diesem Code-Stück... Der Wrapper ist falsch konzipiert

Plugin mit Events über Interfaces

Plugin mit Events über Interfaces

Forumregeln