Zitat von
himitsu:
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 fei 'ner
Exception das Objekt wieder per FREE freigegeben wird.
Super Danke für deine mühe!
Mache wohl besser mal einen neuen Thread auf da es hier um die übersetzung meiner Magnetic Classe geht!
gruß