Несколько ComboBox

[WhistleR]

Привет друзья! Такой вот вопрос:

Есть у меня 10 комбобоксов (ComboBox1, ComboBox2, ...) В начале все, кроме первого Visible := false. Идея такая, что при OnChange первого бокса - появляется второй, при изменении второго - появляется третий и т.д.. А при удалении данных из комбобокса (Text = '') следующий за ним скрывается.
Вопрос: как сделать такие и ,возможно, какие-нибудь другие действия не плодя почти одинаковых процедур ComboBoxXChange? Потому что хотелось бы сделать больше, чем 10 комбобоксов.

[Alex Cones]

Таймер, проверка.

[.Phoenix]

Подоробней разъянись, пожалуйста.

[Sensizu]

Согласен с Alex Cones, и еще можно использовать ComboBoxOnChange:
... if ComboBox1.Text<>'' then ComboBox2.Show; ...

или установить появление второго бокса только при конкретном значении первого:
... if ComboBox1.ItemIndex=1 then ComboBox2.Show; ...
ну где 1 - индекс значения комбоБокса.

[Alex Cones]

ComboBoxOnChange

Не пойдет, т.к.

какие-нибудь другие действия не плодя почти одинаковых процедур ComboBoxXChange

[Sensizu]

понял, извеняюсь - неправильно понял поставленый вопрос.

тогда действительно таймер.

[russian-stalker]

Ну я думаю примерно так:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
cb:tcombobox;
begin
if ((sender as tcombobox).Text<>'') and (findcomponent('cb'+copy(TCombobox(sender).Name,3,1))=nil) then
begin
cb:=tcombobox.Create(form1);
cb.OnChange:=ComboBox1Change;
cb.Name:='cb'+copy(TCombobox(sender).Name,3,1);
end;
if ((sender as tcombobox).Text='') and (findcomponent('cb'+copy(TCombobox(sender).Name,3,1))<>nil) then
(findcomponent('cb'+copy(TCombobox(sender).Name,3,1)) as tcombobox).Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
cb:tcombobox;
begin
cb:=tcombobox.Create(form1);
cb.OnChange:=ComboBox1Change;
cb.Name:='cb1';
end;

[Sensizu]

интересно...
(ех, вот бы мне так кто помог))

[russian-stalker]

Ой, что-то я в прошлом коде намутил не то
Вот рабочий:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
cb:tcombobox;
begin
if ((sender as tcombobox).Text<>'') and (findcomponent('cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1))=nil) then
begin
cb:=tcombobox.Create(form1);
cb.OnChange:=ComboBox1Change;
cb.Name:='cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1);
cb.Parent:=form1;
cb.Left:=(sender as tcombobox).Left+(sender as tcombobox).Width;
end;
if ((sender as tcombobox).Text='') and (findcomponent('cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1))<>nil) then
(findcomponent('cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1)) as tcombobox).Free;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
cb:tcombobox;
begin
cb:=tcombobox.Create(form1);
cb.OnChange:=ComboBox1Change;
cb.Name:='cb1';
cb.Parent:=form1;
end;

[WhistleR]

Сообщение от russian-stalker

Ой, что-то я в прошлом коде намутил не то
Вот рабочий:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
cb:tcombobox;
begin
if ((sender as tcombobox).Text<>'') and (findcomponent('cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1))=nil) then
begin
cb:=tcombobox.Create(form1);
cb.OnChange:=ComboBox1Change;
cb.Name:='cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1);
cb.Parent:=form1;
cb.Left:=(sender as tcombobox).Left+(sender as tcombobox).Width;
end;
if ((sender as tcombobox).Text='') and (findcomponent('cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1))<>nil) then
(findcomponent('cb'+inttostr(strtoint(copy(TCombobox(sender).Name,3,1))+1)) as tcombobox).Free;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
cb:tcombobox;
begin
cb:=tcombobox.Create(form1);
cb.OnChange:=ComboBox1Change;
cb.Name:='cb1';
cb.Parent:=form1;
end;

Спасибо, хороший способ, но максимальное кол-во боксов - 10