TComboBoxEx komponens

A mellékelt példaprogram megnyitása előtt a ComboBoxEx.pas-ban lévő komponenst telepítenie kell a Delphi alá.

Az új komponenst a TComboBox osztályból származtatjuk. Az ItemIndex property-vel nagyon egyszerű a dolgunk, mivel az ős osztályban már deklarálva van. Ezért elég a published részben újra deklarálni, típus nélkül, így most már az Object Inspectorban is megjelenik, és szerkesztési időben is módosítható.

    property ItemIndex;

A másik property viszont már új, ennek neve DropDownWidth lesz. A lista szélességét akkor tudjuk megadni, amikor az éppen legördül, ezért a DropDown eljárást felül kell írnunk. Ebben az eljárásban egy CB_SETDROPPEDWIDTH üzenettel beállítjuk a lista szélességét. Ennek csak akkor van látható hatása, ha a megadott érték nagyobb, mint a ComboBox szélessége.

  Perform(CB_SETDROPPEDWIDTH, FDropDownWidth, 0);