TButtonedEdit.LeftButton Property

Specifies the control that implements the left embedded button.

Pascal

property LeftButton: TEditButton;

C++

__property TEditButton LeftButton;

Description

Use LeftButton to work with the left button embedded in this edit control. Use this button's properties to specify images to correspond to the various states of the button, to disable the button, to toggle it's visiblity and to add a dropdown menu. At design time, expand the LeftButton property in the Object Inspector to set its properties.

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;