[allod26]

Расскажите, как работать с таймером в Delphi.

Если я в интервале задам 50. И вот так запишу:

Код:

Timer1.Enabled:=True;

.........................................
PaintBox1.Canvas.Rectangle...
PaintBox1.Canvas.MoveTo...
PaintBox1.Canvas.LineTo...
......................................
// и т.д.

Timer1.Enabled:=False;

оно ведь не сработает?

нужно, что бы картинки выводились с задержкой

[Pyro]

Код:

PaintBox1.Canvas.Rectangle...
sleep(1000);
PaintBox1.Canvas.MoveTo...
sleep(1000);
PaintBox1.Canvas.LineTo.

[NumLock]

TTimer
TTimer encapsulates the Windows API timer functions.
Unit
ExtCtrls
Description
TTimer is used to simplify calling the Windows API timer functions SetTimer and KillTimer, and to simplify processing the WM_TIMER messages. Use one timer component for each timer in the application.
The execution of the timer occurs through its OnTimer event. TTimer has an Interval property that determines how often the timer’s OnTimer event occurs. Interval corresponds to the parameter for the Windows API SetTimer function.
Caution: Limitations on the total number of timers system-wide are system dependent.

Purpose
Use the Timer component to trigger an event, either one time or repeatedly, after a measured interval. Write the code that you want to occur at the specified time inside the timer component's OnTimer event.
Tasks
-To specify the amount of elapsed time before the timer event is triggered, use the Interval property.
-To discontinue a timed event, set the timer component's Enabled property to false.
-Displaying a SplashScreen

Displaying a SplashScreen
The following two event handlers display and close a form called SplashScreen before the application's main form opens. The constant Startup is declared in Form1's interface part. The first event handler calls the Show method of SplashScreen from Form1's OnActivate event.

Delphi example

procedure TForm1.FormActivate(Sender: TObject);
begin
if Startup then
begin
Startup := False;
SplashScreen.Show;
end;
end;

SplashScreen contains a Timer component whose Interval property is set to 3000, so the form is displayed for three seconds and then closes. The form's Close method is attached to the timer component's OnTimer event.

Delphi example

procedure TForm2.Timer1Timer(Sender: TObject);

begin
Close;
end;

--------->

[icWasya]

Код:

procedure Form1.Button1Click(Sender:TObject);
begin
  Timer1.Enabled:=True;
end;

procedure Form1.Button2Click(Sender:TObject);
begin
  Timer1.Enabled:=false;
end;

procedure Form1.Timer1OnTimer(Sender:TObject);
begin
  PaintBox1.Invalidate;
end;

procedure Form1.PaintBox1OnPaint(Sender:TObject);
begin
.........................................
PaintBox1.Canvas.Rectangle...
PaintBox1.Canvas.MoveTo...
PaintBox1.Canvas.LineTo...
......................................
// и т.д.
end;

А если надо что бы картинки менялись, то внутри PaintBox1OnPaint нужно выбирать, какую картинку и где рисовать, а внутри Timer1OnTimer увеличивать номер картинки