proceduren (Events) aus Interface

Hmm irgend wie will das mal wieder nicht.

Delphi-Quellcode:

			  TSubClass_Proc = function(lng_hWnd: HWND; uMsg: Integer;

                            var Msg: Uint; var bHandled: Boolean) : boolean; stdcall;

 type

  ISkinMagnetic = interface

    ['{A00CB8B3-8433-4C58-9115-1845B29B3FF0}']

    function  GetSnapWidth: Integer;

    procedure SetSnapWidth(const Value: Integer);

    function  AddWindow(Handle: HWND; hWndParent: HWND; var FuncPointer : TSubClass_Proc): Boolean;

    property  SnapWidth: Integer read GetSnapWidth write SetSnapWidth;

    function  RemoveWindow(Handle: HWND): Boolean;

    function  SetFullWindowDrag(hwnd: DWORD; ShowFullWindow: Boolean): Boolean;

    procedure MagneticWindowDestroy;

    procedure zSubclass_Proc(var lng_hWnd: HWND;

                             var uMsg: Integer;

                             var wParam: Integer;

                             var lParam: Integer;

                             var lReturn: Integer;

                             var bHandled: Boolean);

  end;

Wie kann ich jetzt TSubClass_Proc über das Interface weiterleiten ohne in meiner externen Anwendung
TSubClass_Proc wieder zu definieren. ?

Ich bin mir nicht sicher ob ich dann mit der Funktion in Konflikt gerate.
Wenn sie nochmals außerhalb definiert wird.

gruss

proceduren (Events) aus Interface

AW: proceduren (Events) aus Interface

Forumregeln