MDI-Anwendung und Panel

[turboPASCAL]

Jupp, und das einfach mit:

Delphi-Quellcode:

procedure TForm.FormPaint(Sender: TObject);
begin
  canvas.brush.color := clRed;
  canvas.fillrect(RECT(0, 0, form.width, form.height));
  canvas.draw(
    (form.width div 2) - (MyBitmap.width div 2),
    (form.height div 2) - (MyBitmap.height div 2),
    MyBitmap);
end;

procedure TForm.FormResize(Sender: TObject);
begin
  invalidate; // neu zeichnen lassen
end;

... und fertig.