Fórum Estrutura de repetição...coisa simples... #177774

unit RRutil;
//Criado por Matheus JN....robotizar2003@hotimal.Com

interface

uses Windows, Classes, Sysutils;

type
  RRtimer = class(TThread)
    _Intervalo: Integer;
    procedure execute; override;
    constructor Criar(Intervalo: Integer);
    procedure Execut;Virtual; Abstract;
  private
  public
  end;

implementation

constructor RRTimer.Criar(Intervalo: Integer);
begin
  Create(false); //use o comando resume para iniciar
  freeonterminate := true;
  _Intervalo := Intervalo;
end;

procedure RRtimer.execute;
begin
  while not terminated do
    begin
      synchronize(execut);
      Sleep(_Intervalo);
    end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,RRutil;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Ttempo = class(RRtimer)
  procedure Execut; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Ttempo.Criar(1000);
end;

PRocedure Ttempo.execut;
var
X,y: integer;
begin
randomize;
X:= random(Form1.ClientHeight);
Y:= random(form1.ClientWidth);
form1.Canvas.Pixels[x,y]:= CLred;
end;

end.