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