Delphi-Quellcode:
type cMagnetic =
class
constructor Create;
public
function AddWindow(
Handle: Long; hWndParent: Integer = 0): Boolean;
end;
implementation
constructor TMagnetic.create;
begin
// Default snap width
m_lSnapWidth := 10;
// Initialize array (handled windows info)
ReDim m_uWndInfo(0): WND_INFO;
m_lWndCount := 0;
end;
...
und das terminate paßt in den destructor ... siehe
OH ^^
Das war nur ein Beispiel, wie man die Klasse verwendet (erzeigt und freigibt):
Delphi-Quellcode:
var
Magnetic : TMagnetic;
begin
Magnetic := TMagnetic.Create; // objektreferenz erzeugen
Magnetic.AddWindow(GetDesktopWindow, Self.handle); // irgendwas machen
...
Magnetic.Free; // objekt freigeben
end;
try-finally ist nur der Resourcenschutzblock ... damit selbst bei 'ner
Exception das Objekt wieder per FREE freigegeben wird.