[QUOTE=Pytroxis;1430599]
[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.