用Delphi编写涂鸦桌面的小程序
2002-06-11 15:05
337 查看
有很多的关于涂鸦桌面的小软件,确实很好玩,现在来用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.LineTo(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.
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.LineTo(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.
相关文章推荐
- 用Delphi编写涂鸦桌面的小程序
- Delphi编写系统服务二:系统服务和桌面程序的区别
- Delphi编写系统服务四:如何限制系统服务和桌面程序只运行一个
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- Delphi编写系统服务二:系统服务和桌面程序的区别
- Delphi编写系统服务四:如何限制系统服务和桌面程序只运行一个
- Python使用wxPython、py2exe编写桌面程序
- 利用Delphi编写Socket通信程序-- 转贴收藏 http://dev.rdxx.com/Delphi/DelphiNET/
- delphi编写系统托盘程序
- 利用Delphi编写屏幕保护程序
- 使用Delphi,SDK编写Windows简单程序
- 转 : 用Delphi编写安装程序
- 利用Delphi编写Socket通信程序
- 用Delphi编写点对点传文件程序
- Delphi 操作一个桌面泡泡程序
- 桌面软件程序编写与单片机程序哪个更复杂难写?
- 图文并茂 delphi 编写你的com程序
- 用Delphi编写Win2000服务程序
- 用Delphi编写DelTree程序