Zitat von
Union:
In der Standardkonfiguration heißt es result (extended Syntax). Das hat den Vorteil, dass man die Funktion umbenennen kann, ohne den evtl. verwendeten Namen 20 Mal ebenfalls ändern zu müssen. Und es ermöglicht Rekursion, wenn gewollt.
Danke habs geändert .. kann es aber noch nicht prüfen
da ich noch nicht bis hierher vordringen kann!
Die Klasse ist bis auf ein paar kleinigkeiten übersetzt.
Befinde mich nun in der Form und rufe diese mit diesen parametern auf.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
Var
m_Magnetic: TMagnetic;
begin
m_Magnetic := TMagnetic.Create;
// Class TMagnetic Initialisieren
m_Magnetic.AddWindow(Form1.Handle);
// Main Handle (Hauptanwendung) addieren
end;
end.
Beim ersten aufruf direkt der erste Fehler!
Delphi-Quellcode:
// Validate windows
If (IsWindow(
Handle)
And (IsWindow(hWndParent)
Or (hWndParent = 0)))
Then
begin
// Increase count
inc(m_lWndCount);
// Resize arrays
// ReDim Preserve m_uWndInfo(0 To m_lWndCount);
// ReDim Preserve m_rcWnd(0 To m_lWndCount);
// Add info
With m_uWndInfo[m_lWndCount]
do
begin
hwnd :=
Handle;
hWndParent := hWndParent;
end;
Er springt bis hwnd :=
Handle; dann gibt es einen
AV
m_uWndInfo : array of TWND_INFO;
Delphi-Quellcode:
Type
PWND_INFO = ^TWND_INFO;
TWND_INFO = record
hwnd : Integer;
hWndParent : Integer;
Glue : Boolean;
end;
Das ist die Type welche angesprochen wird.
Dieser wird durch ReDim Preserve m_uWndInfo(0 To m_lWndCount); verursacht
Das Array wurde noch nicht redimensioniert!
Habe noch keine umsetzungs möglichkeit dafür gefunden!
Doch gerade!
Zitat:
REDIM
To allocate dynamic variables, use New or GetMem. For REDIM PRESERVE, allocate memory for the new variable and copy the old values to the new memory, and erase the old variable with Dispose or FreeMem. A ReAllocMem function is also available.
Wie müßte die funktion dann aussehen?
für ReDim Preserve m_uWndInfo(0 To m_lWndCount);
Gruß