With Test do

[EWeiss]

Zitat von Neutral General:

Delphi-Quellcode:

type
  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
  end;

  TSkinFrameButton = class(TInterfacedObject, ISkinFrameButton)
  private
    HFrameButton: Hwnd;
    function GetHandle: Hwnd;
  end;

implementation
  
function TSkinFrameButton.GetHandle: Hwnd;
begin
  Result := HFrameButton;
end;

Fantastisch ihr seid richtig lieb zu mir heute
Hab doch erst in 2 Tagen Geburtstag.. und werd 53

Danke an alle.
Ich hoffe das ich jetzt damit klarkomme.

gruss