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

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

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



フォームの OnShow イベント等で Left位置を合わせておけばよいようです
procedure TForm1.FormShow(Sender: TObject);
begin
    LabeledEdit1.EditLabel.Left := LabeledEdit1.Left;
end;

コメント