ButtonClick

[alex0097]

Народ подскажите как реализовать. Что бы при нажатии на Button1Click
Он рандомно выбирал из
timer1, timer2, timer3 и запускал его.

[Serge_Bliznykov]

например, так:

case random(3) of
  0: begin Timer1.enable := true;
              Timer2.enable := false; {останавливаем 2-й таймер}
              Timer3.enable := false; {останавливаем 3-й таймер}
      end;
  1: begin Timer2.enable := true;
              Timer1.enable := false; {останавливаем 1-й таймер}
              Timer3.enable := false; {останавливаем 3-й таймер}
      end;
  2: begin Timer3.enable := true;
              Timer1.enable := false; {останавливаем 1-й таймер}
              Timer2.enable := false; {останавливаем 2-й таймер}
      end
end;

p.s. если два других таймера не надо останавливать - удалите соответствующие строчки

p.p.s. есть подозрение на X-Y-Z. я не уверен, что Вам нужно делать отдельные три таймера..
впрочем, это уже совсем другая история

[Аватар]

не уверен, что Вам нужно делать отдельные три таймера

ТС, подумайте над этой фразой. Обычно одним таймером можно реализовать любые, даже самые экзотичные, хотелки программиста. И код будет прозрачней и в отладке проще

[alex0097]

а если при нажатии на Button1Click. он рандомно нажимал на Button2Click, Button3Click, Button4Click. подскажите пожалуйста))))

[Serge_Bliznykov]

ну, точно так же только вместо Timer.Enabled := true; пишите
Button2Click(Button2); Button3Click(Button3); и т.д.

p.s. подозрение, что Вы делаете не то, что надо - усиливается!..

[alex0097]

хочу реализовать задачу. которая рандомно двигает цветок по экрану) с таймером не проконало

[Serge_Bliznykov]

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

хочу реализовать задачу. которая рандомно двигает цветок по экрану) с таймером не проконало

попробнее. Что Вы хотите получить, как выглядеть, как должен двигаться ваш цветок?
Ну и почему таймер не проканал, тоже расскажите..

[alextrof94]

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

хочу реализовать задачу. которая рандомно двигает цветок по экрану) с таймером не проконало

Люди делают супермегапупер-игрушки вроде крайзиса всего на одном таймере, а у вас цветок передвинуть не удается...

[Unique_Maks]

Image1.Top := Random(Form1.ClientHeight);
Image1.Left := Random(Form1.ClientWidth);

что-то типо этого?)

[alex0097]

Unique_Maks да. спасибо. выоожу что получилось