Delphi の LabeledEdit を右寄せにしつつラベルは左に

Delphi で LabeledEdit(TLabeledEdit) の Alignment を taRightJustify にすると、テキストボックス内の右寄せと共に、ラベルまで右側に付いてしまう

LabeledEdit.EditLabel にも Left プロパティがあるので、それを LabeledEdit.Left と同じにすればOK、ただ、編集画面で移動させると元の位置に戻ってしまいます

フォームの OnShow イベント等で Left位置を合わせておけばよいようです

view plainprint?

1. procedure TForm1.FormShow(Sender: TObject);  
2. begin  
3.     LabeledEdit1.EditLabel.Left := LabeledEdit1.Left;  
4. end;  

procedure TForm1.FormShow(Sender: TObject);
begin
    LabeledEdit1.EditLabel.Left := LabeledEdit1.Left;
end;