用Delphi编写涂鸦桌面的小程序 (转)

用Delphi编写涂鸦桌面的小程序 (转)[@more@]

有很多的关于涂鸦桌面的小软件，确实很好玩，现在来用Delphi实现之。我建议使用Delphi，因为他做这个简直太

Easy了！

首先，新建一个Application，将Form1的windowstate设为wsMaximized，BorderStyle设为bsNone。这样做的目的就是

可以使窗口的Client区域充满整个屏幕，那么我们就可以在上面随意的画画了。

接下来，在Form的OnCreate事件中写入使窗口的客户区域显示屏幕画面的代码（关键步骤）

procedure TForm1.FormCreate(Sender: Tobject);
begin
Brush.Style :=bsClear;//这里的实现方法用Delphi是最简单的了
end;

好了，以后加入画图的程序就可以了。下面是全部的Delphi代码，本程序在win2000 + Delphi6中调试通过！

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  procedure FormKeyDown(Sender: TObject; var Key: word;
  Shift: TShiftState);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}
//上面都是Delphi自动生成的代码
procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Style :=bsClear;
Tag:=0;  //使用Form的Tag属性作标志位
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Tag:=1; //置位
Canvas.MoveTo(X,Y); //将Pen的位置移到当前
//取随机数
Randomize;
Canvas.Pen.Width := Random(30);//设置画笔的宽度
Canvas.Pen.Color :=RGB(Random(255),Random(255),Random(255));//设置画笔的颜色
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Tag=1 then
begin
  Canvas.L.NETo(x,y);//画线
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Tag:=0; //标志位
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then Close();//判断如果按下ESC键就退出程序
end;

end.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-992718/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-992718/