Форум программистов [Powered by Invision Power Board]

Код

uses
      HSHintComboBox;
...
private
    { Private declarations }
    FHSHintComboBox : THSHintComboBox;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FHSHintComboBox:=THSHintComboBox.Create(self);
  FHSHintComboBox.Parent:= Self;
  FHSHintComboBox.Items.Assign(ComboBox1.Items);
  FHSHintComboBox.BoundsRect:= ComboBox1.BoundsRect;
  //if NOT (ComboBox1.Style in [csDropDown, csDropDownList]) then
    //  raise Exception.Create (
      // 'HSHintComboBox поддерживает стиль только csDropDown и csDropDownList');
  FHSHintComboBox.Style := ComboBox1.Style;
  FHSHintComboBox.DropDownCount := ComboBox1.DropDownCount;
  FHSHintComboBox.TabOrder := ComboBox1.TabOrder;
  FHSHintComboBox.TabStop := ComboBox1.TabStop;
    //OnListMouseMove := HSHintComboBoxListMouseMove;
  //ComboBox1.Free();
end;