Delphi-Quellcode:
// Validate windows
If (IsWindow(
Handle)
And IsWindow(hWndParent))
Or (hWndParent = 0)
Then
begin
// Increase count
inc(m_lWndCount);
// Resize arrays
SetLength(m_uWndInfo, m_lWndCount);
// ReDim Preserve m_uWndInfo(0 To m_lWndCount);
SetLength(m_rcWnd, m_lWndCount);
// ReDim Preserve m_rcWnd(0 To m_lWndCount);
// Add info
With m_uWndInfo[m_lWndCount -1]
do
begin
hwnd :=
Handle;
hWndParent := hWndParent;
end;
Läuft jetzt durch bis an dieser stelle!
Bei ReDim Preserve funktioniert diese anweisung
With m_uWndInfo[m_lWndCount] do
Bei
SetLength(m_rcWnd, m_lWndCount);
muss ich den counter wieder um eins herabsetzen
With m_uWndInfo[m_lWndCount -1] do
ansonsten werden mir keine Daten übergeben.
Ich denke mal wenn Length(Array)-1 wird das so in Ordnung sein.
gruß