TGroupBox - Höhe des Clientbereichs?

[ralfiii]

Hallo!

Sagen wir mal ich hab eine GroupBox und ich will zur Laufzeit deren Höhe dynmaisch an etwas das drin eingeblendet wird anpassen.
Dann wär's mal nicht ganz unpraktisch zu wissen wie viel Margin die GroupBox hat.
Blöderweise seh ich da keine Property die mir weiterhelfen würde.
ClientHeight liefert das selbe wie Height.
Ich dachte es wird halt Height - abs(Font.Size) - Margin.Top - Margin.Bottom sein. Aber das stimmt auch nicht mehr sobald man die Fontgrösse ändert.

Wie komm ich auf die Höhe des GroupBox-Clientbereichs?

Danke!

[uligerhardt]

Probier mal TCustomGroupBox.AdjustClientRect .

[ralfiii]

Zitat von uligerhardt:

Probier mal TCustomGroupBox.AdjustClientRect .

Danke für den Tip!
Der Vollständigkeit halber, die Client-Höhe ist demnach

Delphi-Quellcode:

     i:=gb.Height;
     Canvas.Font := gb.Font;
     Dec(i, Canvas.TextHeight('0')+2);
     if gb.Ctl3d then Dec(i,2);