Создание Combobox'a в программе

@Илья_Я · Регистрация: 25.12.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста , кто чем может .
надо ... При нажатии на кнопку в окне программе добавлялся новый combobox , так же при нажатии на другую кнопку , в этот новый combobox добавлялась запись из Edit .

11.03.2013, 11:22

Про динамическое создание контролов написано очень много, данный форум не исключение. Для начала всегда нужно пользоваться поиском.

Delphi

var
  ComboBox1 : TComboBox;
...
procedure TForm1.Button1Click(Sender : TObject);
begin
  ComboBox1 := TComboBox.Create(Self);
  with ComboBox1 do
  begin
    Parent := Form1;
    Left := 10;
    Top := 10;
    Width := 145;
    Height := 21;
    Name := 'ComboBox1';
  end;
end;
 
procedure TForm1.Button2Click(Sender : TObject);
var
  cb : TComboBox;
begin
  // проверим, что такой контрол имется
  cb := TComboBo(FindComponent('ComboBox1'));
  if Assigned(cb) then
    cb.Items.Add(Edit1.Text);
end;

@Илья_Я 1 / 1 / 0 Регистрация: 25.12.2012 Сообщений: 33
		1
	Создание Combobox'a в программе 11.03.2013, 11:03. Показов 1991. Ответов 1 Метки нет (Все метки) Помогите пожалуйста , кто чем может . надо ... При нажатии на кнопку в окне программе добавлялся новый combobox , так же при нажатии на другую кнопку , в этот новый combobox добавлялась запись из Edit . 0

	11.03.2013, 11:22

Создание Combobox'a в программе

Решение