При выборе значения одного из трёх ComboBox выводить значение в Label

На форме стоит 3 combobox'a в каждой из них несколько строк с разными значениями. Мне нужно чтобы при выборе какого нибудь значения в этих 3 Combobox'a выводился ответ в label. Как это все сделать??? Вот что получилось у меня p.s В delphi совсем недавно, думаю что ошибок много хотелось бы что бы вы указали эти ошибки ну и объяснили как их решить! спасибо
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
 ComboBox1: TComboBox;
 ComboBox2: TComboBox;
 ComboBox3: TComboBox;
 Button1: TButton;
 Label1: TLabel;
 procedure Label1Click(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var q,w,e:Integer;
begin
if ComboBox1='ponedelnik' then
if ComboBox2='1' then
 ComboBox3.Items1:=1;
 e:=combobox3;
 case e of
1:label1.caption:=('1');
2:label1.caption:=('2');
3:label1.caption:=('3');
end;

 if ComboBox1='vtornik' then
 if ComboBox2='1' then
 ComboBox3.Items1:=1;
 e:=combobox3;
 case e of
1:label1.caption:=('4');
2:label1.caption:=('5');
3:label1.caption:=('6');
end;

end.
2 ответа

Все можно проще: У каждого ComboBox в свойсве Tag ставишь уникальные цифры, ну чтобы отличались друг от друга. Я просто прописал: 0 1 2Далее пишем единый обработчик:
procedure TForm1.OnCombosChange(Sender: TObject);
var
 CB:TComboBox absolute Sender;
begin
 case cb.Tag of //Использую уник. значения Tag
 begin
 0: Label1.Сaption:=ComboBox1.Text;
 1: Label1.Сaption:=ComboBox2.Text;
 2: Label1.Сaption:=ComboBox3.Text;
 end;
end;
Назначаем его всем 3м компонентам, и радуемся!


Все можно проще: У каждого ComboBox в свойсве Tag ставишь уникальные цифры, ну чтобы отличались друг от друга. Я просто прописал: 0 1 2Далее пишем единый обработчик:
procedure TForm1.OnCombosChange(Sender: TObject);
var
 CB:TComboBox absolute Sender;
begin
 case cb.Tag of //Использую уник. значения Tag
 begin
 0: Label1.Сaption:=ComboBox1.Text;
 1: Label1.Сaption:=ComboBox2.Text;
 2: Label1.Сaption:=ComboBox3.Text;
 end;
end;
Назначаем его всем 3м компонентам, и радуемся!
спасибо! щас попробую