TEditButton.Enabled Property

Specifies whether the embedded button is enabled.

Pascal

property Enabled: Boolean;

C++

__property Boolean Enabled;

Description

Use Enabled to enable or disable a embedded button. If Enabled is true, the button OnClick event handler is called when the user selects the item with the mouse. If Enabled is false, the embedded button appears dimmed and the user cannot select it. However, calling the button OnClick event handler method works even when Enabled is false.

C++ Examples:

Copy Code

/*
This example shows how to use the TButtonedEdit class. This example
implements a component like "TButtonedEdit search" that's to be
found in the tool pallete window.
Entering the control will enable the right button, left button will
display a MessageDlg and the right button will clear the input text.
*/
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
    //declaring an instance
    btnEdit = new TButtonedEdit(this);

    //setting the parent so it will autodetele
    btnEdit->Parent = this;

    //positioning
    btnEdit->Left = 10;
    btnEdit->Top = 10;

    //creating a TImageList and using it for the button
    TImageList* imList = new TImageList(this);
    Graphics::TBitmap* bmap = new Graphics::TBitmap();
    bmap->LoadFromFile("..\\littleB_16.bmp");
    imList->Add(bmap,NULL);
    bmap->LoadFromFile("..\\little_logo_16.bmp");
    imList->Add(bmap,NULL);
    btnEdit->Images = imList;

    //selecting the image for the left button and enabling it
    btnEdit->LeftButton->Visible = true;
    btnEdit->LeftButton->Enabled = true;
    btnEdit->LeftButton->ImageIndex = 0;
    btnEdit->LeftButton->DisabledImageIndex = 0;
    btnEdit->LeftButton->HotImageIndex = 0;

    //selecting the image for the right button
    //this will be enabled when the content changes
    btnEdit->RightButton->Enabled = true;
    btnEdit->RightButton->ImageIndex = 1;
    btnEdit->RightButton->DisabledImageIndex = 1;
    btnEdit->RightButton->HotImageIndex = 1;

    //selecting action for the buttoned edit to take
    btnEdit->OnEnter = btnEditEnter;
    btnEdit->OnRightButtonClick = btnEditRightClick;
    btnEdit->OnLeftButtonClick = btnEditLeftClick;

    //default text in the edit
    btnEdit->Text = "Default";

    btnEdit->Constraints->MinHeight = 16;
    btnEdit->Height = 16;

    //finally displaying the button
    btnEdit->Show();

}
//---------------------------------------------------------------------------

void __fastcall TForm4::btnEditEnter(TObject* Sender){
   btnEdit->Text = "";
   btnEdit->RightButton->Visible = true;
}

void __fastcall TForm4::btnEditRightClick(TObject* Sender){
   //resetting to default state
   btnEdit->Text = "Default";
   btnEdit->RightButton->Visible = false;
}

void __fastcall TForm4::btnEditLeftClick(TObject* Sender){
   MessageDlg("Left button pressed with: " + btnEdit->Text,
             mtInformation, TMsgDlgButtons() << mbOK, 0);

}

Delphi Examples:

Copy Code

{
This example shows how to use the TButtonedEdit class. This example
implements a component like "TButtonedEdit search" that's to be
found in the tool pallete window.
Entering the control will enable the right button, left button will
display a MessageDlg and the right button will clear the input text.
}
type
  TForm4 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    btnEdit : TButtonedEdit;
    procedure btnEditEnter(Sender : Tobject);
    procedure btnEditLeftClick(Sender : Tobject);
    procedure btnEditRightClick(Sender : Tobject);
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.btnEditEnter(Sender: Tobject);
begin
  btnEdit.Text := '';
  btnEdit.RightButton.Visible := true;
end;

procedure TForm4.btnEditLeftClick(Sender: Tobject);
begin
  MessageDlg('Left button pressed with: ' + btnEdit.Text,
             mtInformation, [mbYes], 0);

end;

procedure TForm4.btnEditRightClick(Sender: Tobject);
begin
  //resetting to default state
   btnEdit.Text := 'Default';
   btnEdit.RightButton.Visible := false;
end;

procedure TForm4.FormCreate(Sender: TObject);
var
  imList : TImageList;
  bmap   : TBitmap;
begin
  //declaring an instance
    btnEdit := TButtonedEdit.Create(Self);

    //setting the parent so it will autodetele
    btnEdit.Parent := Self;

    //positioning
    btnEdit.Left := 10;
    btnEdit.Top := 10;

    //creating a TImageList and using it for the button
    imList := TImageList.Create(Self);
    bmap := TBitmap.Create();
    bmap.LoadFromFile('littleB_16.bmp');
    imList.Add(bmap,nil);
    bmap.LoadFromFile('little_logo_16.bmp');
    imList.Add(bmap,nil);
    btnEdit.Images := imList;

    //selecting the image for the left button and enabling it
    btnEdit.LeftButton.Visible := true;
    btnEdit.LeftButton.Enabled := true;
    btnEdit.LeftButton.ImageIndex := 0;
    btnEdit.LeftButton.DisabledImageIndex := 0;
    btnEdit.LeftButton.HotImageIndex := 0;

    //selecting the image for the right button
    //this will be enabled when the content changes
    btnEdit.RightButton.Enabled := true;
    btnEdit.RightButton.ImageIndex := 1;
    btnEdit.RightButton.DisabledImageIndex := 1;
    btnEdit.RightButton.HotImageIndex := 1;

    //selecting action for the buttoned edit to take
    btnEdit.OnEnter := btnEditEnter;
    btnEdit.OnRightButtonClick := btnEditRightClick;
    btnEdit.OnLeftButtonClick := btnEditLeftClick;

    //default text in the edit
    btnEdit.Text := 'Default';

    btnEdit.Constraints.MinHeight := 16;
    btnEdit.Height := 16;

    //finally displaying the button
    btnEdit.Show();

end;