Textgrösse auf Fenstergrösse anpassen

[needatip]

Zitat von Giantics:

Zitat von needatip:

Super. Kannst Du mir noch beibringen wie man das ganze dann noch zentriert auf dem Screen ausgibt? - Danke im voraus.

Ich würde sagen so:

Delphi-Quellcode:

  Label1.Left:=(ClientWidth-Label1.Width) div 2;
  Label1.Top:=(ClientHeight-Label1.Height) div 2;

Verstehe das Prinzip, funzt aber noch nicht so ganz.
Habe es so versucht. Mein Fenster 800x600 und dann folgendes probiert.

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
Label1.Left:=(Form1.ClientWidth-Label1.Width) div 2;
Label1.Top:=(Form1.ClientHeight-Label1.Height) div 2;
for i:=400 downto 1 do
begin
Canvas.Font.Size:=i;
if ((Canvas.TextHeight(Label1.Caption)<Form1.ClientHe ight) and (Canvas.TextWidth(Label1.Caption)<Form1.ClientWidt h)) then
break;
end;
Label1.Font.Size:=i;
end;
end.