Subclassing der WndProc des übergeordneten Controls

[Chewie]

Zitat von negaH:

In deinem Fall musst dann wohl oder übel das fensterhandle mit SetWindowLong() subclassen.

Genau das mach ich ja:

Delphi-Quellcode:

var
  OldParentWndProc: Pointer;

function NewParentWndProc(hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: lParam):
  lResult; stdcall;
begin
  Result := 0;
  case uMsg of
    WM_CTLCOLORSTATIC:
      begin
        SetBkColor(HDC(wParam), RGB(255, 255, 255));
        Result := RGB(255, 255, 255);
      end;
  else
    CallWindowProc(OldParentWndProc, hWnd, uMsg, wParam, lParam);
  end;
end;

//Subclassing durchführen
OldParentWndProc := Pointer(SetWindowLong(hWndParent, GWL_WNDPROC,
    Integer(@NewParentWndProc)));

Und wenn ich das so mache, reagiert das Fenster nicht mehr.