unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm7 = class(TForm) Timer1: TTimer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure DrawCircle(Sender: TObject); end; var Form7: TForm7; implementation {$R *.dfm} uses Math; procedure TForm7.Button1Click(Sender: TObject); begin // Timer.Interval в милисекундах Timer1.Interval := 1000+1000*Random(9); //случайно от 0 до 9 Timer1.OnTimer := DrawCircle; Timer1.Enabled := True; end; procedure TForm7.DrawCircle(Sender: TObject); var X, Y, R: Integer; C: TColor; begin X := Random(Min(ClientHeight, ClientWidth)); // чтобы центр не выходил за пределы клиентской части окна Y := Random(Min(ClientHeight, ClientWidth)); // чтобы центр не выходил за пределы клиентской части окна R := Random(Min(ClientHeight, ClientWidth)) div 2; // чтобы радиус был меньше половины клиентской части окна C := TColor(Random(MaxInt)); Canvas.Pen.Color := C; Canvas.Ellipse(X-R, Y-R, X+R, Y+R); end; end. |