[***XXX***]

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

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

Код:

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

[***XXX***]

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

[Drozh]

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

Код:

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

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

Код:

var
  Count: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Count := 0; // сброс
 Timer1.Enabled := True; // активация таймера
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := False; // выключаем таймер
// выводим результат
 ShowMessage(Format('По форме кликнуто %d раз(а)', [Count]));
end;

procedure TForm1.FormClick(Sender: TObject);
begin
// наращивем значение 
 Inc(Count)
end;

[***XXX***]

Спасибо!!!

[Drozh]

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