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.