Du kannst folgendes probieren, allerdings habe ich es selber noch nicht ausprobiert.
Du benötigst eine Variable
var Fcanvas: TControlCanvas;
Nun baust du in deine Prozedur folgendes ein:
Delphi-Quellcode:
Fcanvas := TControlCanvas.Create;
FCanvas.Control := Self;
x := LabeledEdit1.EditLabel.Caption; //Text deines ersten Labels
y := LabeledEdit2.EditLabel.Caption; //Text deines zweiten Labels
Laenge1 := Fcanvas.TextWidth(x); //Laenge des ersten Textes in Pixel
Laenge2 := Fcanvas.TextWidth(y); //Laenge des zweiten Textes in Pixel
if Laenge1 > Laenge2 then
LabeledEdit2.LabelSpacing := LabeledEdit1.LabelSpacing
+ (Laenge1 - Laenge2)
else
LabeledEdit1.LabelSpacing := LabeledEdit2.LabelSpacing
+ (Laenge2 - Laenge1);
//So setzt du den Abstand vom kleineren Label auf den
//Laengenunterschied zwischen beiden Texten
Von der Idee her könnte das tun, du musst es aber noch ausprobieren und vielleicht ein wenig anpassen.
Viel Spaß dabei.
Gruß Pascal