unit3.pas

自己写的delphi图像处理程序

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm3 = class(TForm)
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  x1 : Integer;
  x2 : Integer;
  x3 : Integer;
  x4 : Integer;
  x5 : Integer;
  x6 : Integer;
  S : Integer;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
  S:=200;
  Form3.Left := 0;
  Form3.Top := 0;
  Form3.Height := screen.Height;
  Form3.Width := screen.Width;
    showcursor(false);
    //screen.Cursor := crNone;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
  S := 200;
  //showcursor(false);
  //MouseHide:=true;
  screen.Cursor := crNone;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
  x1 := random(screen.Height);
  x2 := random(screen.Width);
  x3 := random(S);

  Form3.Canvas.Pen.Color := rgb(244, 202, 255);
  Form3.Canvas.Pen.Width := 8;
  Form3.Canvas.Brush.Color := rgb(244, 202, 255);
  Form3.Canvas.Ellipse(x4, x5, abs(x4-x6), abs(x5-x6));
  Form3.Canvas.Pen.Color := rgb(random(255), random(255), random(255));
  Form3.Canvas.Ellipse(x1, x2, abs(x1-x3), abs(x2-x3));

  x4 := x1;
  x5 := x2;
  x6 := x3;

    showcursor(false);
end;

procedure TForm3.FormClick(Sender:TObject);
begin
  Unit3.Form3.Hide;
  Unit3.Form3.Close;
  showcursor(true);
end;
end.