unit1.pas

来自「一个交通红绿灯线程」· PAS 代码 · 共 37 行

unit Unit1;

interface

uses
  Classes, SysUtils;

type
  Tthread1 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation
uses main;
{ Tthread }

procedure Tthread1.Execute;
begin
  {卡车循环行驶}
  while not terminated do
  begin
    { Place thread code here }
    Form1.Image3.Top := Form1.Image3.Top + 1;
    if Form1.Image3.Top >= 499 then
    begin
      Form1.Image3.Top := -95;
    end;
    sleep(45);
  end;
end;

end.