Komponenten während der Laufzeit erstellen und löschen

[peterbelow]

[QUOTE=Pytroxis;1430599]

Zitat von peterbelow:

[DELPHI]
Ich arbeite mit der Funktion Canvas und den Labels.

Delphi-Quellcode:

procedure TForm2.FormPaint(Sender: TObject);
begin
  zeichnen(self, 1);
  Canvas.Refresh;
end;

procedure TForm2.FormResize(Sender: TObject);
begin
  DestroyLabel;
  Button1.Left := Round(ClientWidth * 0.0482954545454545);
  Button1.Top := Round(ClientHeight * 0.8140589569160998);
  Button1.Width := Round(ClientWidth * 0.9034090909090909);

  Canvas.Brush.Color := clMenu;
  Canvas.FillRect(Rect(0,0, Width, Height));
  zeichnen(self, 1);
end;

Stehe momentan ziemlich auf dem Schlauch

Du machst das irgendwie völlig falsch. Wenn Du variablen Text auf ein Form schreiben willst, mach das mit Canvas.TextOut oder Canvas.TextRect, nicht, indem Du TLabels auf das Form legst. Beides zu mischen macht keinen Sinn, denn TLabels sind persistent, wenn man sie einmal angelegt hat zeichnen sie sich selbst neu, wenn das notwendig ist. Wenn sich der Text ändert, den sie anzeigen sollen, ändert man die Caption-Eigenschaft des Labels und zerstört nicht das Label und erzeugt es neu.