|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
AW: With Test do
2. Mär 2011, 13:03
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;
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|