Timer в Canvas

[Mazepa]

Помогите убрать цикл в Канве, а точнее выключить таймер после завершения события.

Я так понимаю, надо куда то подставить (может параметры какие то здесь изменить)

if (y <= ClientHeight+20) then
Timer1.Enabled := false;


Вот код программы.

procedure TInfo.FormCreate(Sender: TObject);
begin
  x:=50;
  y:=Height+10;
  bm:=TBitmap.Create;
  bm.Width:=200;
  bm.height:=height;
  bm.PixelFormat:=pf24bit;
  Canvas.Font.Name:='Calibri';
  bm.Canvas.Brush.Color:= $00FFCCCC;
  bm.Canvas.FillRect(bm.Canvas.ClipRect);
  With Timer1 do
    begin
      enabled:=true;
      Interval:=20;
    end;
end;


procedure TInfo.Timer1Timer(Sender: TObject);
begin

  y:=y-1;
  if y=30 then y:=height+10;
    Timer1.Enabled:=False;
  with bm do
    begin
      Canvas.Font.Color:=$000576DC;
      Canvas.TextOut(x-10,y,'Имя программы:');
      ...
      ...
      ...
    end;
  Canvas.Draw(0,0,bm);
end;

[Utkin]

Засунь в обработчик таймера самой первой строчкой.

[Mazepa]

Во, разобрался, нужно было отключение вставить в готовое условие

procedure TInfo.Timer1Timer(Sender: TObject);
begin

  y:=y-1;
  if y=30 then Timer1.Enabled:=False;
  with bm do
    begin
     ...

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

[Utkin]

Введи дополнительную переменную.

[Mazepa]

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

Введи дополнительную переменную.

аааа ,подскажи пожалуйста что конкретно написать и куда вставить код ,а то я уже ничего не понимаю

[Stilet]

Mazepa

В Событии OnActivate той формы пропиши старт таймера а перед ним еще не забудь поставить y:=Height+10;

[Mazepa]

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

В Событии OnActivate той формы пропиши старт таймера а перед ним еще не забудь поставить y:=Height+10;

Спасибо большое теперь всё, только надо ещё добавить две строчки, чтобы новый текст не наезжал на предыдущий. Рисуется прямоугольник нужного цвета, прям то что нужно было

  bm.Canvas.Brush.Color := $00FFCCCC;
  bm.Canvas.FillRect(Canvas.ClipRect);