TComboBoxEx Class

TComboBoxEx represents a combo box that supports extended combo box features such as images on the list entries.

Pascal

TComboBoxEx = class(TCustomComboBoxEx);

C++

class TComboBoxEx : public TCustomComboBoxEx;

File

ComCtrls

Description

Add TComboBoxEx to a form when you want to include a combo box that uses the images in an image list or when you want to control how far the items in the drop-down list are indented. TComboBoxEx provides greater support of items than the TComboBox control, but omits certain features as well (owner-drawn items, sorting of list items, and so on).

C++ Examples:

Copy Code

/*
This is a very simple example showing how to create a comboBoxEx, add
to it some items and images, indenting the items and getting the
selected value.
*/
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//comboBoxEx initialization
combEx = new TComboBoxEx(this);
combEx->Parent = this;

//visual options
combEx->Align = TAlign::alLeft;
combEx->DoubleBuffered = true;

//adding image content
TCustomImageList* myImages = new TCustomImageList(16,16);
Graphics::TBitmap* image = new Graphics::TBitmap();

//for this examples the images are 50x50 pixels
image->LoadFromFile("..\\little_logo_16.bmp");
myImages->Add(image, NULL);
image->LoadFromFile("..\\littleB_16.bmp");
myImages->Add(image, NULL);
image->LoadFromFile("..\\little_sun_16.bmp");
myImages->Add(image, NULL);

combEx->Images = myImages;

//adding the items with the corresponding indexes to the images
//plus some indentations
combEx->ItemsEx->AddItem("firstChoiceEx", 0, 0, 0, 0, NULL);
combEx->ItemsEx->AddItem("secondChoiceEx", 1, 1, 1, 1, NULL);
combEx->ItemsEx->AddItem("thirdChoiceEx", 2, 2, 2, 2, NULL);

   //setting the default value
  combEx->ItemIndex = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  MessageDlg("Selected text: " + combEx->Text,
             mtInformation, TMsgDlgButtons() << mbOK, 0);
}

Delphi Examples:

Copy Code

{
This is a very simple example showing how to create a comboBoxEx, add
to it some items and images, indenting the items and getting the
selected value.
}
procedure TForm3.Button1Click(Sender: TObject);
begin
  MessageDlg('Selected text: ' + combEx.Text,
             mtInformation, mbYesNo, 0);

end;

procedure TForm3.FormCreate(Sender: TObject);
var
  myImages : TImageList;
  image : TBitmap;
begin
  //comboBoxEx initialization
  combEx := TComboBoxEx.Create(Self);
  combEx.Parent := Self;

  //visual options
  combEx.Align := alLeft;
  combEx.DoubleBuffered := true;

  //initializing the TBitmap
  image := TBitmap.Create();

  //adding image content
  myImages := TImageList.CreateSize(64, 64);
  image.LoadFromFile('little_logo_64.bmp');
  myImages.Add(image,nil);
  image.LoadFromFile('littleB_64.bmp');
  myImages.Add(image,nil);
  image.LoadFromFile('little_sun_64.bmp');
  myImages.Add(image,nil);

  combEx.Images := myImages;

  //adding the items with the corresponding indexes to the images
  //plus some indentations

  combEx.ItemsEx.AddItem('firstChoiceEx', 0, 0, 0, 0, nil);
  combEx.ItemsEx.AddItem('secondChoiceEx', 1, 1, 1, 1, nil);
  combEx.ItemsEx.AddItem('thirdChoiceEx', 2, 2, 2, 2, nil);
  ComboBoxEx1.ItemsEx.AddItem('firstChoiceEx', 0, 0, 0, 0, nil);
  ComboBoxEx1.ItemsEx.AddItem('secondChoiceEx', 1, 1, 1, 1, nil);
  ComboBoxEx1.ItemsEx.AddItem('thirdChoiceEx', 2, 2, 2, 2, nil);

   //setting the default value
  combEx.ItemIndex := 1;
  ComboBoxEx1.ItemIndex := 0;

end;