Código Delphi [-] procedure TForm1.FormCreate(Sender: TObject); var i : Integer; begin ComboBox1.Clear; for i := 1 to 100 do ComboBox1.Items.Add('Item '+IntToStr(i)); ComboBox1.AutoDropDown := True; ComboBox1.DropDownCount := 30; end;
procedure TForm1.FormCreate(Sender: TObject); var i : Integer; begin ComboBox1.Clear; for i := 1 to 100 do ComboBox1.Items.Add('Item '+IntToStr(i)); ComboBox1.AutoDropDown := True; ComboBox1.DropDownCount := 30; end;