Events in DLLs über Interfaces

[mirage228]

Hoi,

also für MenuItems habe ich bereits fertige Interfaces (abgeleitet von Sakuras Tutorial)

Delphi-Quellcode:

// *********************************************************************//
// Schnittstelle: IMainMenu
// Flags:     (256) OleAutomation
// GUID:      {B8435927-2FE9-4487-9955-4138579288D8}
// *********************************************************************//
  IMainMenu = interface(IUnknown)
    ['{B8435927-2FE9-4487-9955-4138579288D8}']
    function GetMenuItems: IMenuItems; stdcall;
    function InsertMenuItem(aIndex: SYSINT; const aCaption: WideString; const aHint: WideString; 
                            const aName: WideString; aShortCut: Word; aTag: SYSINT; 
                            const OnClick: IMenuClickNotify): IMenuItem; stdcall;
  end;

// *********************************************************************//
// Schnittstelle: IMenuItems
// Flags:     (256) OleAutomation
// GUID:      {9A35E2C0-792E-4372-9483-D779C92B0B07}
// *********************************************************************//
  IMenuItems = interface(IUnknown)
    ['{9A35E2C0-792E-4372-9483-D779C92B0B07}']
    function GetCount: SYSINT; stdcall;
    function GetItem(Index: SYSINT): IMenuItem; stdcall;
    function FindItem(const aName: WideString): IMenuItem; stdcall;
    function RemoveItem(const aMenuItem: IMenuItem): WordBool; stdcall;
  end;

// *********************************************************************//
// Schnittstelle: IMenuItem
// Flags:     (256) OleAutomation
// GUID:      {EB29098A-A769-4E1D-91A0-F728A1C7C92D}
// *********************************************************************//
  IMenuItem = interface(IUnknown)
    ['{EB29098A-A769-4E1D-91A0-F728A1C7C92D}']
    function GetMenuItems: IMenuItems; stdcall;
    function InsertMenuItem(aIndex: SYSINT; const aCaption: WideString; const aHint: WideString; 
                            const aName: WideString; aShortCut: Word; aTag: SYSINT; 
                            const OnClick: IMenuClickNotify): IMenuItem; stdcall;
    function FindItem(const aName: WideString): IMenuItem; stdcall;
    function GetIndex: SYSINT; stdcall;
    function GetCaption: WideString; stdcall;
    procedure SetCaption(const aValue: WideString); stdcall;
    function GetHint: WideString; stdcall;
    procedure SetHint(const aValue: WideString); stdcall;
    function GetName: WideString; stdcall;
    function GetShortCut: Word; stdcall;
    procedure SetShortCut(aValue: Word); stdcall;
    function GetTag: SYSINT; stdcall;
    procedure SetTag(aValue: SYSINT); stdcall;
    function GetOnClick: IMenuClickNotify; stdcall;
    procedure SetOnClick(const aValue: IMenuClickNotify); stdcall;
  end;

// *********************************************************************//
// Schnittstelle: IMenuClickNotify
// Flags:     (256) OleAutomation
// GUID:      {EE9407DD-2337-4DFC-BC35-A40C4FA0A1A7}
// *********************************************************************//  
  IMenuClickNotify = interface(IUnknown)
    ['{EE9407DD-2337-4DFC-BC35-A40C4FA0A1A7}']
    procedure OnClick(const Sender: IMenuItem); stdcall;
  end;

Also das ist die Interface Deklaration. Die implementierenden Klassen sind vollständig kompatbibel zu TMainMenu und TPopupMenu.
Also falls Du interesse hast, lasse ich dir die implementierenden Klassen dazu mal zukommen

Ich hätte auch noch eine Implementierung des Interfaces für Delphi Plugins.

Und ja, du darfst es kommerziell nutzen, wenn Du meinen und sakura's Namen (Menu Interfaces nach dem Plugin Tutorial von ihm) erwähnst

mfG
mirage228