10- mavzu. Delphi dasturlash muhitida tarmoq operatorlari Savollar

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case ListBox1.ItemIndex of
0: begin
Image1.visible:=false;
Panel1.Color:=clTeal;
Panel1.Caption:='Birichi';
end;
1: begin
Image2.visible:=false;
Panel2.Color:=clRed;
Panel2.Caption:='Ikkinchi';
end;
2: begin
Image3.visible:=false;
Panel3.Color:=clYellow;

6

Panel3.Caption:='Uchinchi';
end;
3: begin
Image4.visible:=false;
Panel4.Color:=clBlue;
Panel4.Caption:='Turtichi';
end;
end;
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: Image1.visible:=true;
1: Image2.visible:=true;
2: Image3.visible:=true;
3: Image4.visible:=true;
end;
end;
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
case ColorBox1.ItemIndex of
0: Panel5.Color:=clBlack;
1: Panel5.Color:=clMaroon;
2: Panel5.Color:=clGreen;
3: Panel5.Color:=clOlive;
end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: begin
MediaPlayer2.Stop;
MediaPlayer1.Play;
end;
1: begin
MediaPlayer1.Stop;
MediaPlayer2.Play;
end;
end;
end;
end.

5