1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var
  Form1: TForm1;
  AktivesTurnier:TTurnier; // Es kann immer nur ein Turnier
  AktivesBild:TImage;      // und ein Bild geben.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel2.DoubleBuffered:=true;
  AktivesBild:=TImage.Create(Panel2);  // Bild erstellen.
  AktivesBild.Parent:=Panel2;          // Bild ins Panel setzen
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  if AktivesTurnier<>nil then AktivesTurnier.Zeichnen(AktivesBild);  
  // Wenn die Form resized wird und es ein aktives Turnier gibt, dann soll er das zeichnen.
end;

procedure TKoEinzel.Zeichnen(Bild:TImage);  // Ein bestimmtes Turnier, abgeleitet von TTurnier.
begin
  Bild.Top:=0;
  Bild.Left:=0;
  Bild.Height:=Bild.Parent.Height; // Hier passiert nichts! Das Bild sollte eigentlich der Größe des Panels
  Bild.Width:=Bild.Parent.Width;   // angepasst werden. Die Bildgröße verändert sich jedoch nicht.
  Bild.Canvas.Pen.Color:=clBlack;
  Bild.Canvas.Brush.Color:=clWindow;
  Bild.Canvas.Rectangle(Rect(0,0,Bild.Width,Bild.Height));
  Bild.Canvas.MoveTo(0,0);                        // Diese Testlinien zeichnet er wunderbar
  Bild.Canvas.LineTo(Bild.Width,Bild.Height);     // Er erkennt sogar wo die Ecken eigentlich sein sollten.
  Bild.Canvas.MoveTo(0,Bild.Height);
  Bild.Canvas.LineTo(Bild.Width,0);
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel2.DoubleBuffered:=true;
  AktivesBild:=TImage.Create(Panel2);  // Bild erstellen.
  AktivesBild.Parent:=Panel2;          // Bild ins Panel setzen <------- da
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormResize(Sender: TObject);
begin
  if AktivesTurnier<>nil then
  begin
    AktivesBild.Free;
    AktivesBild:=TImage.create(Form1.Panel2);
    AktivesBild.Parent:=Form1.Panel2;
    AktivesTurnier.Zeichnen(AktivesBild);
  end;
end;