paintth.pas

来自「Delphi实效编程百例的随书源代码 这是其中的程序控制部分」· PAS 代码 · 共 40 行

unit paintth;
interface
uses
  Classes;

type
  TPainterThread = class(TThread)
  protected
  procedure Execute; override;
  end;

implementation

{ TPainterThread }

uses
  MainForm, Graphics;

procedure TPainterThread.Execute;
var
  X, Y: Integer;
begin
  Randomize;
  repeat
    X := Random (400);
    Y := Random (200);
    with Form1.Canvas do
    begin
      Lock;
      try
        Pixels [X, Y] := clBlue;
      finally
        Unlock;
      end;
    end;
  until Terminated;
end;

end.