Показать сообщение отдельно
  #7  
Старый 17.03.2013, 12:32
RuSp RuSp вне форума
Прохожий
 
Регистрация: 15.03.2013
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Спасибо за совет.
Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  OnOffTimers(False);
  PBP(0);
  GP();
  Button1.Caption := 'GO!!'; 
  n := StrToInt(ComboBox1.Text);
  if n = 2 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    //Âûêë
    ProgressBar3.visible := false;
    Gauge3.Visible := false;
    Label3.Visible := false;
    ProgressBar4.visible := false;
    Gauge4.Visible := false;
    Label4.Visible := false;
    ProgressBar5.visible := false;
    Gauge5.Visible := false;
    Label5.Visible := false;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 3 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := false;
    Gauge4.Visible := false;
    Label4.Visible := false;
    ProgressBar5.visible := false;
    Gauge5.Visible := false;
    Label5.Visible := false;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 4 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := false;
    Gauge5.Visible := false;
    Label5.Visible := false;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 5 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 6 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 7 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 8 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := true;
    Gauge8.Visible := True;
    Label8.Visible := True;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 9 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := true;
    Gauge8.Visible := True;
    Label8.Visible := True;
    ProgressBar9.visible := true;
    Gauge9.Visible := True;
    Label9.Visible := True;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 10 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := true;
    Gauge8.Visible := True;
    Label8.Visible := True;
    ProgressBar9.visible := true;
    Gauge9.Visible := True;
    Label9.Visible := True;
    ProgressBar10.visible := true;
    Gauge10.Visible := True;
    Label10.Visible := True;
  end;
end;

А с таким кодом, что посоветуете?
Ответить с цитированием