TLabel, horizontale Mitte berechnen

[hedie]

Hallo zusammen

Ich möchte ein TImage und ein TLabel dynamisch auf die gleiche horizontale Achse legen.
Bisher habe ich versucht mittels

Delphi-Quellcode:

Label.Height div 2

Die funktioniert jedoch nur mässig gut und liefert keine zuverlässigen Ergebnisse.

Hat jemand eine andere Idee?

Danke!

[Jasocul]

Ungeprüft:

Delphi-Quellcode:

Label.Top := Image.Height div 2 - Label.Height div 2;

Oder denke ich zu einfach?

[Dejan Vu]

Image.Top noch dazu, dann sollte das einigermaßen hinhauen.

Delphi-Quellcode:

 Label.Top := Image.Top + (Image.Height - Label.Height) div 2;

[hedie]

Danke für eure Antworten.

Ich habe mich etwas zu ungenau ausgedrückt.

Delphi-Quellcode:

Label.height div 2

ergibt bei mir nicht immer die exakte mitte des Labels.

[baumina]

Probleme könnte ein AutoSize=True des Labels machen, wenn es zuvor noch nie gezeichnet wurde und somit die Höhe noch nicht berechnet wurde.

[Dejan Vu]

Kommt drauf an, was Du als 'Mitte' bezeichnest. Am Besten mal nen Screenshot und die genaue Beschreibung deines Problems.

Eventuell müsstest Du im TLabel noch die vertikale Ausrichtung richtig einstellen.

[hedie]

Danke für eure Inputs.

Es lag an einem Minus anstelle eines Plus :)

Nun funktioniert es