delphi canvas рисование с интервалами

[dol]

Здравствуйте, как мне сделать, чтобы фигуры на форме появлялись не одновременно, а по очереди с одинаковыми интервалами?

procedure TForm1.N1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer1.Interval:=500;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Rectangle(10,100,100,200);
Canvas.Rectangle(110,100,200,200);
Canvas.Rectangle(210,100,300,200);
end;

end.

[Serge_Bliznykov]

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

type
  TForm1 = class(TForm)

...

  private
    ndraw  : integer;
  public
    { Public declarations }
  end;



.....

procedure TForm1.N1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer1.Interval:=500;
ndraw := 0;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case ndraw of
  0 : Canvas.Rectangle(10,100,100,200);
  1 : Canvas.Rectangle(110,100,200,200);
  2 : Canvas.Rectangle(210,100,300,200);
  end;
  Inc(ndraw);
  if ndraw>2 then Timer1.Enabled := False
end;

[digitalis]

i : integer ;

procedure TForm1.N1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer1.Interval:=500;
i := 0 ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=0 then begin Canvas.Rectangle(10,100,100,200); Inc(i) end ;
if i=1 then begin Canvas.Rectangle(210,100,300,200); Inc(i) end ;
if i=2 then begin Canvas.Rectangle(110,100,200,200); Timer1.Enabled:=False end ;
end;

end.

Хорошая мысля приходит одновременно.

[dol]

Спасибо, теперь разобрался!

[Вадим Мошев]

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

завести глобальную переменную

Это же плохо...

[Аватар]

Она же не глобальная, а приватная в классе

[Serge_Bliznykov]

Сообщение от Аватар

Она же не глобальная, а приватная в классе

ага!
говорим, по старой привычке, глобальная,
пишем в коде - приватную переменную в классе.

Хотя, по большому счёту, не вижу ничего ужасного в использовании глобальных переменных.
в конце концов, почему Дельфи использует глобальную

var Form1:TForm1;

ему можно, а мне нет?