Delphi5: Labelhöhe soll sich der Schriftgröße anpassen

[nelly]

Hallo Delphianer,
wenn in Label.Font die Schrift vergrößert wird, erhöht sich der Wert in Label.Height. Bei einer Verkleinerung der Schrift ändert sich der Wert in Label.Height aber nicht.

Gibt es eine Möglichkeit, daß sich Label.Height automatisch der Schriftgröße anpaßt ?

Vielen Dank für einen Tip oder Hinweis.

MfG.
Uwe

[Uli Becker]

Hallo Uwe,

das sollte aber automatisch funktionieren. Ich habe es ausprobiert: 2 Labels und 2 Buttons:

<pre>
procedure TForm1.Button1Click(Sender: TObject);
begin
with label1 do
begin
font.size := 10;
label2.caption := inttostr(label1.font.height);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with label1 do
begin
font.size := 8;
label2.caption := inttostr(label1.font.height);
end;
end;
</pre>

Kein Problem!

Viel Erfolg..