Zeichnen auf MDI-Form...

[bingo72]

Ich habs dann so gelöst, daß ich auf meiner Form im OnPaint und OnResize die DrawBackground-Methode auslöse und die MainClientWndProc hab ich folgendermaßen abgeändert:

Delphi-Quellcode:

case Msg of WM_ERASEBKGND:
      begin
        lDC := TWMEraseBkGnd(Message).DC;
        lBrushOld := SelectObject(lDC, fBkBrush);
        FillRect(lDC, ClientRect, fBkBrush);
        SelectObject(lDC, lBrushOld);
        Result := 1;
        DrawBackground;
      end;
      WM_SIZE:
        begin
          lDC := TWMSize(Message).Msg;
          lBrushOld := SelectObject(lDC, fBkBrush);
          FillRect(lDC, ClientRect, fBkBrush);
          SelectObject(lDC, lBrushOld);
          Result := 1;
        end;
      WM_PAINT:
        begin
          lDC := TWMPaint(Message).DC;
          lBrushOld := SelectObject(lDC, fBkBrush);
          FillRect(lDC, ClientRect, fBkBrush);
          SelectObject(lDC, lBrushOld);
          Result := 1;
        end else begin
        Result := CallWindowProc (fPrevClientProc, ClientHandle, Msg, wParam, lParam);
      end;
    end;

Damit sieht es sehr gut aus...