家具展示型网站,网页设计入门案例,seo超级外链工具,摄影工作室logo设计用Delphi编写涂鸦桌面的小程序#xff0c;类似于腾讯会议中的画板功能的实现。这里用Delphi实现代码给大家提供一些思路#xff1b; 首先#xff0c;新建一个Application#xff0c;将Form1的WindowState设为wsMaximized#xff0c;BorderStyle设为bsNone。这样做的目的就… 用Delphi编写涂鸦桌面的小程序类似于腾讯会议中的画板功能的实现。这里用Delphi实现代码给大家提供一些思路 首先新建一个Application将Form1的WindowState设为wsMaximizedBorderStyle设为bsNone。这样做的目的就是 可以使窗口的Client区域充满整个屏幕那么我们就可以在上面随意的画画了。 接下来在Form的OnCreate事件中写入使窗口的客户区域显示屏幕画面的代码关键步骤 procedure TForm1.FormCreate(Sender: TObject); begin Brush.Style :bsClear;//这里的实现方法用Delphi是最简单的了 end; 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 Tag1 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 key27 then Close();//判断如果按下ESC键就退出程序
end;
end.
