Рандомное отображение картинок.

[Vlad1698]

Здравствуйте,подскажите пожалуйста команду ,чтобы при
if progressbar2.position = 1000 then
отображались либо image1 , image2 либо image3, image4.
спасибо

[Stilet]

Нет такой команды. Придется целый блок программы писать.

[Vlad1698]

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

Нет такой команды. Придется целый блок программы писать.

не понял?
можно в двух словах что именно делать?как сделать чтобы хоть чтото из объектов на форме выбиралось рандомно?

[Stilet]

if progressbar2.position = 1000 then begin
 randomize;
 repeat
  i:=random(Controlscout);
 until Controls[i] is TImage;
 TImage(Controls[i]).четотамделаем
end;

Однако так делать не по феншую. Компоненты, которые нужно отбирать стоит пихнуть либо в массив либо в список TComponentList чтоб четко контролировать отбор.
Почитай про этот класс и попробуй с ним поработать. Примеры в хелпе есть.

[doktor255]

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

Здравствуйте,подскажите пожалуйста команду ,чтобы при
if progressbar2.position = 1000 then
отображались либо image1 , image2 либо image3, image4.
спасибо

var i: integer;
begin
if progressbar2.position = 1000 then begin
Randomize;
i := random(2);
case i of
0: begin 
      //Отображаем Image1 и Image2;
    end;
1: begin
      //Отображаем Image3 и Image4;
    end;
end;
end;
end;

[xxbesoxx]

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

Здравствуйте,подскажите пожалуйста команду ,чтобы при
if progressbar2.position = 1000 then
отображались либо image1 , image2 либо image3, image4.
спасибо

1.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Timer1.Enabled := True;
end;

2.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position := ProgressBar1.Position +1;
   if  ProgressBar1.Position = ProgressBar1.Max then
    begin
       Timer1.Enabled := False;
       Image1.Visible := True;
    end;

end;

[doktor255]

xxbesoxx А где варианты перебора Image1, Image2, Image3, Image4? А почему Image1.Visible Присваивается только если прогресс бар достиг максимума, а не как стоит задача, отметки в тысячу? И опять же почему Image1? Сырое непродуманное решение.

[xxbesoxx]

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

xxbesoxx А где варианты перебора Image1, Image2, Image3, Image4? А почему Image1.Visible Присваивается только если прогресс бар достиг максимума, а не как стоит задача, отметки в тысячу? И опять же почему Image1? Сырое непродуманное решение.

doktor255 Замечание правильно да ! Если такой " жесткой критика " вот пожалуйста . Что скажете ?

1.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
    Image1.Visible := False;
     Image2.Visible := False;
     Image3.Visible := False;
end;

2.

procedure TForm1.Timer1Timer(Sender: TObject);
 var i: integer;
begin
   ProgressBar1.Position := ProgressBar1.Position +1;
    if  ProgressBar1.Position = ProgressBar1.Max   then
    begin
       Randomize;
       i:=random(3);
       case i of
       0:Image1.Visible := True;
       1:Image2.Visible := True;
       2:Image3.Visible := True;
       end;
    end;
     if  ProgressBar1.Position = ProgressBar1.Max  then
     begin
      Timer1.Enabled := False;
       ProgressBar1.Position:=0;
 end;
end;

http://takebin.com/u/7bBac5c737

[xxbesoxx]

По поводу: if progressbar2.position = 1000 и if ProgressBar1.Position = ProgressBar1.Max ничем не отличается ! Задача уже готов скачайте и проверите как работает

[doktor255]

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

По поводу: if progressbar2.position = 1000 и if ProgressBar1.Position = ProgressBar1.Max ничем не отличается !

ProgressBar.Max := 100500;
ProgressBar.position := 1000;
ProgressBar.Position = ProgressBar.Max ???

Я уже молчу об использовании в решении задачи не нужных компонентов.

i:=random(3);

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