Добавление "пакета" компонентов

[Jantar]

Всем доброго утра!

Вот сделал код:

procedure TForm1.Button1Click(Sender: TObject);
 var a:array[1..6] of TCombobox; 
       b:array[1..5] of TEdit;
       i,j:integer;
 begin
   for i:=1 to 6 do
   begin
     a[i]:=TCombobox.create(form1);
     a[i].parent:=form1;
     a[i].left:=200;
     a[i].top:=i*30;
   end;
   for j:=1 to 5 do
   begin
     b[j]:=TEdit.create(form1);
     b[j].parent:=form1;
     b[j].left:=10;
     b[j].text:='';
     b[j].top:=j*20;
   end;
 end;

Все работает. Только как вставить,чтобы в первое добавленное Combobox вставлялся список из первого Комбо, во второй - со второго и т.д. Буду благодарен за ответ

[Johnson]

проперти Items боксов...

[Jantar]

Сам додумал, когда написал. Но все равно спасибо

[Jantar]

Извините, что снова тревожу. Теперь вопросики по внешнему виду возникли. Скажите, пожалуйста, как при добавлении "пакета" компонентов каждый раз вправо - увеличивался автоматически размер формы по горизонтали ТОЛЬКО. А после 4 добавления - появлялась горизонтальная линейка, так как там размеры (разрешения) монитора уже не дают...

[Человек_Борща]

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

А вообще есть ScrollBox компонент. Вот и тыкай туда пакеты по вертикали..между ними рисуй свою линию...

[Jantar]

Скажите пожалуйста, как можно осуществить такое условие:

если Edit1 пустое, то 1 сообщение
если Edit2 пустое, то 2 сообщение
если Edit3 пустое, то 3 сообщение
если Edit4 пустое, то 4 сообщение

если в конце все Edit не пустые, то выполняется действие.


// все. сам нашел. Извините

[Jantar]

Вот действительно не могу понять и не нашел. У меня при клике на кнопку - появляется вторая форма. Как сделать чтобы Edit1.Text при появлении формы стал виден на другой? Спасибо заранее

[Человек_Борща]

У форм есть событие OnShow
Вот там и пишите..

if условие then
EditN.Visible:=true;

[evg_m]

при клике на кнопку - появляется вторая форма.

.....
form2.Edit77.Text:=form1.Edit1.text;
form2.show;
......

form2.edit77.text:=form1.edit1.text;
if form2.showmodal =mrok then
  form1.edit1.text:=form2.edit77.text;

[Jantar]

Все. Спасибо всем. Все работает