Прошу помощи Combobox'ы

[Lavilas]

Сообщение от Аватар

Один OnChange на все комбобоксы, в Tag комбобоксов проставить то, на что умножать

procedure TForm1.ComboBoxChange(Sender: TObject);
begin
  if TComboBox(Sender).ItemIndex<0 then Label1.Caption:=''
  else Label1.Caption:=IntToStr(StrToInt(TComboBox(Sender).Items[TComboBox(Sender).ItemIndex])*TComboBox(Sender).Tag);
end;

Нескромный вопрос: А как сделать один OnChange для всех пяти комбобоксов? Было бы замечательно...

[min@y™]

А как сделать один OnChange для всех пяти комбобоксов? Было бы замечательно...

Ну прочитай ты хоть одну книжку по delphi!

[Lavilas]

Сообщение от min@y™

Ну прочитай ты хоть одну книжку по delphi!

Я почему то тоже так подумал )))

[Serge_Bliznykov]

Сообщение от Lavilas

Нескромный вопрос: А как сделать один OnChange для всех пяти комбобоксов?

во-первых, у меня к сообщению приложен архив с исходниками проекта.
В нём всем пяти комбобоксам назначен один обработчик.

во-вторых, это сделать проще простого - одному комбобоксу умеете обработчик назначать? выделите комбобоксы (либо по одному, с шифтом), либо обвести зажатой лев.кнопкой мышки.
После того, как они выделены, переходите на закладку Events и выбирайте обработчик события.
Он назначится всем выделенным комбобоксам.

[Аватар]

Сообщение от Lavilas

Я почему то тоже так подумал )))

Надо же, я тоже так думаю )) С этого и начать

[Lavilas]

Сообщение от Аватар

Надо же, я тоже так думаю )) С этого и начать

Сообщение от Serge_Bliznykov

во-первых, у меня к сообщению приложен архив с исходниками проекта.
В нём всем пяти комбобоксам назначен один обработчик.

во-вторых, это сделать проще простого - одному комбобоксу умеете обработчик назначать? выделите комбобоксы (либо по одному, с шифтом), либо обвести зажатой лев.кнопкой мышки.
После того, как они выделены, переходите на закладку Events и выбирайте обработчик события.
Он назначится всем выделенным комбобоксам.

Спасибо. С этим разобрался. И последний вопрос, в начале я не совсем правильно изложил свой вопрос. Значения комбобоксов умноженные на числа в Лейбле должны суммироваться. Как это организовать? Мужики помогите!!!!!

[Serge_Bliznykov]

И последний вопрос, в начале я не совсем правильно изложил свой вопрос. Значения комбобоксов умноженные на числа в Лейбле должны суммироваться.

замените код обработчика на такой:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   Label1.Caption := IntToStr(
      ComboBox1.Tag * ComboBox1.ItemIndex +
      ComboBox2.Tag * ComboBox2.ItemIndex +
      ComboBox3.Tag * ComboBox3.ItemIndex +
      ComboBox4.Tag * ComboBox4.ItemIndex +
      ComboBox5.Tag * ComboBox5.ItemIndex  );
end;

[Lavilas]

Сообщение от Serge_Bliznykov

замените код обработчика на такой:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   Label1.Caption := IntToStr(
      ComboBox1.Tag * ComboBox1.ItemIndex +
      ComboBox2.Tag * ComboBox2.ItemIndex +
      ComboBox3.Tag * ComboBox3.ItemIndex +
      ComboBox4.Tag * ComboBox4.ItemIndex +
      ComboBox5.Tag * ComboBox5.ItemIndex  );
end;

Спасибо мужики! Выручили. Всё работает! До встречи!