LabeledEdit (Delphi)

Description

This code demostrates how to configure a TLabeledEdit at run time. A TLabeledEdit is assumed to be placed on the form.

Code

procedure TMainForm.FormCreate(Sender: TObject);
var
  EditLbl: TBoundLabel;
begin
  { Retrieve the label associated with the edit control. }
  EditLbl := edtName.EditLabel;

  { Configure the label. }
  EditLbl.Caption := 'Specify the name:';
  EditLbl.Font.Color := clBlue;

  { Set the label position and spacing relative to
    the edit control. }
  edtName.LabelPosition := lpAbove;
  edtName.LabelSpacing := 2;
end;

Uses

• Vcl.ExtCtrls.TLabeledEdit ( fr | de | ja )
• Vcl.ExtCtrls.TCustomLabeledEdit ( fr | de | ja )
• Vcl.ExtCtrls.TBoundLabel ( fr | de | ja )
• Vcl.ExtCtrls.TCustomLabeledEdit.EditLabel ( fr | de | ja )
• Vcl.ExtCtrls.TCustomLabeledEdit.LabelPosition ( fr | de | ja )
• Vcl.ExtCtrls.TCustomLabeledEdit.LabelSpacing ( fr | de | ja )