[***XXX***]

Помогите пожалуйста написать программу, которая считает щелчки мыши по кнопке на форме за 10 секунд и выводит сообщение о результате. (Запоминает рекорд) Пожалуйста напишите подробный код и обьекты на форме. ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО!

[M.A.D.M.A.N.]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var Count:Byte; ... procedure TForm1.TimerOnTimer(Sender:TObject); begin   Timer.Enabled:=False; end; ... procedure TForm1.btnCountOnClick(Sender:TObject); begin   inc(Count); end; ... <i>(* Timer.Interval:=10*1000     Timer.Enabled:=True *)</i>

[***XXX***]

Извените, но код не подробный, разобраться не могу

[Drozh]

Гляди) Кидаешь на форму кнопку Button1 и компонент Timer1, в свойствах Timer'а устанавливаешь знаечения:

Код:

1 2	Enabled в False // активность Interval в 10000 // интервал срабатывания в мс

Затем пишешь нижеследующие проседуры

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

<b>var</b>   Count: Integer;   <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>begin</b>  Count := 0; // сброс  Timer1.Enabled := True; // активация таймера <b>end</b>;   <b>procedure</b> TForm1.Timer1Timer(Sender: TObject); <b>begin</b>  Timer1.Enabled := False; // выключаем таймер // выводим результат  ShowMessage(Format('По форме кликнуто %d раз(а)', [Count])); <b>end</b>;   <b>procedure</b> TForm1.FormClick(Sender: TObject); <b>begin</b> // наращивем значение  Inc(Count) <b>end</b>;

[***XXX***]

Спасибо!!!

[Drozh]

В Object TreeView выбираешь форму, затем в Object Inspector'e переходишь на закладку Events, в ней выбираешь метод OnClick и кликаешь рядом мышкой по пустому полю))) В редакторе кода должна появится заготовка

[***XXX***]

Подскажите пожалуйста, как сделать обратный отсчет(10 потом 9 и тд.)
желательно с полосой TProgressBar (убывание)

[Drozh]

Ну можно прямо влоб:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var   ATime: Integer = 10;   <b>procedure</b> TForm1.Timer1Timer(Sender: TObject); <b>begin</b>  Dec(ATime);  ProgressBar1.Position := ATime;     <b>if</b> ATime <= 0 <b>then</b>   <b>begin</b>    Timer1.Enabled := False;    ShowMessage('Время истекло');   <b>end</b>; <b>end</b>;   при этом настройки такие  Timer1.Interval = 1000  ProgressBar1.Position = 10  ProgressBar1.Max = 10  ProgressBar1.Min = 0

Но вся эта конструкция будет двигатся рывками, поэтому можно поигратся значением и задержкой, например так:

Код:

1 2 3 4 5 6

ATime: Integer = 100; и настройки  Timer1.Interval = 100  ProgressBar1.Position = 100  ProgressBar1.Max = 100  ProgressBar1.Min = 0

получаем более гладкий сдвиг, но идет набег запаздывания где-то 1-2 сек, так что решай сам)

[***XXX***]

куда строчку засунуть: ATime: Integer = 100;

[Drozh]

как глобальную переменную объяви

[***XXX***]

А таймер сбросить как???

[Drozh]

Код:

1	ATime := 10;

[***XXX***]

Спасибо, вы оказали мне неоценимую помощь!
Тему можно закрыть