TLabel.Caption und TEdit.Text ausrichten

[uligerhardt]

Hi zusammen!

Weiß jemand, wie ich ein TLabel und ein TEdit per Quellcode so ausrichten kann, dass die "Grundlinie" der beiden Beschriftungen auf gleicher Höhe liegt - so wie die rosa Führungslinien im VCL-Formdesigner? (Am liebsten ohne eine Myriade von GetTextMetrics-Aufrufen und so. )

Vielen Dank im Voraus,
Uli.

[marabu]

Hallo Uli,

versuche es mal so:

Delphi-Quellcode:

begin
  with TheLabel do
    Top := FocusControl.Top + 3;
end;

Grüße vom marabu

[uligerhardt]

Zitat von marabu:

versuche es mal so:

Delphi-Quellcode:

begin
  with TheLabel do
    Top := FocusControl.Top + 3;
end;

Danke für die Antwort. Das wird's für den Anfang tun.

Allerdings würde ich die 3 gern noch durch den Aufruf einer netten kleinen VCL- oder API-Routine ersetzen, sonst wird das ganze wahrscheinlich nicht verlässlich funktionieren in Anbetracht von Themes, große/kleine Schriftarten etc.

Uli.

[marabu]

Mit den Schriftarten sollte es kein Problem geben. Die 3 entsteht durch den Standard-Offset 2 der Schrift im Edit-Control zzgl. 1 für die borderline.

marabu

[uligerhardt]

Ach so. So einfach hätte ich mir das wieder nicht vorgestellt.