Delphi 操作一个桌面泡泡程序

2024-03-21 16:10
文章标签 程序 操作 桌面 delphi 泡泡

本文主要是介绍Delphi 操作一个桌面泡泡程序，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

在网上转的时候看到了一篇文章关于透明显示PNG图片的例子，于是突发奇想做了一个桌面泡泡程序，程序做的比简陋没有什么技术可讲，发上来希望给大家带来点启发。高手跳过：

主要是通过窗体实现的；见笑了；

程序在Delphi 2010可编译通过；

下面就是这个程序的源码

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,Unit2, MPlayer, ExtCtrls,Unit3, Unit4, Menus, pngimage;typeTForm1 = class(TForm)Timer1: TTimer;Timer2: TTimer;Timer3: TTimer;PopupMenu1: TPopupMenu;N1: TMenuItem;N2: TMenuItem;N3: TMenuItem;procedure Button1Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);procedure Timer2Timer(Sender: TObject);procedure Timer3Timer(Sender: TObject);procedure FormCreate(Sender: TObject);procedure N1Click(Sender: TObject);procedure N2Click(Sender: TObject);procedure N3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;//从文件加载PNG
procedure YXForm_FormFile(AForm: TForm; AFileName: string);//从资源加载PNg
procedure YXForm_FromResource(AForm: TForm; ResName: string; ResTYPE: PWideChar;Instance:HINST = 0);//从图像对象加载procedure YXForm_FromGraphic(AForm: TForm; AGraphic: TGraphic);
varForm1: TForm1;implementation{$R *.dfm}procedure YXForm_FormFile(AForm: TForm; AFileName: string);
varwic : TWICImage;
beginwic := TWICImage.Create;     //创建一个wic.LoadFromFile(AFileName);  //加载图片路径;YXForm_FromGraphic(AForm, wic);wic.Free;end;///procedure YXForm_FromResource(AForm : TForm; ResName : String;ResType : PWideChar; Instance : HINST);
var  wic : TWICImage;
r : TResourceStream;
begin  if Instance = 0 then    Instance := HInstance;r := TResourceStream.Create(Instance, ResName, ResType);wic := TWICImage.Create;wic.LoadFromStream(r);YXForm_FromGraphic(AForm, wic);wic.Free;  r.Free;
end;//
procedure YXForm_FromGraphic(AForm : TForm; AGraphic : TGraphic);
var  ptDst, ptSrc: TPoint;Size: TSize;BlendFunction: TBlendFunction;bmp : TBitmap;beginbmp := TBitmap.Create;bmp.Assign(AGraphic);ptDst := Point(AForm.Left, AForm.Top);ptSrc := Point(0, 0);Size.cx := AGraphic.Width;Size.cy := AGraphic.Height;BlendFunction.BlendOp := AC_SRC_OVER;BlendFunction.BlendFlags := 0;BlendFunction.SourceConstantAlpha := $FF;// 透明度BlendFunction.AlphaFormat := AC_SRC_ALPHA;SetWindowLong(AForm.Handle, GWL_EXSTYLE, GetWindowLong(AForm.Handle,GWL_EXSTYLE) or WS_EX_LAYERED);UpdateLayeredWindow(AForm.Handle,AForm.Canvas.Handle,@ptDst,@Size,bmp.Canvas.Handle,@ptSrc,0,@BlendFunction,ULW_ALPHA);bmp.Free();end;procedure TForm1.Button1Click(Sender: TObject);
varff:Tform;
beginff:=Tform2.Create(Self);YXForm_FormFile(ff,'1.png');ff.Show;{MediaPlayer1.FileName :='data\1.wav';MediaPlayer1.Open;MediaPlayer1.Play;}end;procedure HideApplication(HideOnStartUp: Boolean = False);
begin {sail2000#126.com}if HideOnStartUp thenApplication.ShowMainForm := False;if Application.MainFormOnTaskBar and (Application.MainForm <> nil) thenbeginShowWindow(Application.MainForm.Handle, sw_Hide)endelsebeginShowWindow(Application.Handle, sw_Hide); //唉。。。end;
end;procedure TForm1.FormCreate(Sender: TObject);beginHideApplication;YXForm_FormFile(Form1,'main.png');Application.Title :='Windows 桌面泡泡程序';end;procedure TForm1.N1Click(Sender: TObject);
begin
ShowMessage('本软件是使用Delphi当中的TWICImage类来实现的，本软件是使用Delphi2010环境下编译的。');
end;procedure TForm1.N2Click(Sender: TObject);
begin
ShowMessage('  软件名称：WIndows桌面美化工具;');
end;procedure TForm1.N3Click(Sender: TObject);
begin
Application.Terminate ;
end;procedure TForm1.Timer1Timer(Sender: TObject);
varff:Tform;
beginff:=Tform2.Create(Self);YXForm_FormFile(ff,'1.png');ff.Show;
end;procedure TForm1.Timer2Timer(Sender: TObject);
vardd:Tform;
begindd:=TForm3.Create(Self);YXForm_FormFile(dd, '01.png');dd.Show;end;procedure TForm1.Timer3Timer(Sender: TObject);
varcc:Tform;begincc:=TForm4.Create(Self);YXForm_FormFile(cc, '01.png');cc.Show;
end;end.

 

unit Unit2;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTForm2 = class(TForm)Timer1: TTimer;Timer2: TTimer;Timer3: TTimer;procedure Timer1Timer(Sender: TObject);procedure ftop;procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);procedure FormMouseLeave(Sender: TObject);procedure Timer2Timer(Sender: TObject);procedure Timer3Timer(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm2: TForm2;implementation{$R *.dfm}
uses
Unit1;procedure recordrec;
vardata:TextFile;
constpath= 'rec.txt';beginAssignFile(data, path);Append(data);Writeln(data,'left:= '+ IntToStr(form2.Left));Writeln(data,'     top:= '+inttostr( form2.top) );CloseFile(data);end;procedure TForm2.FormCreate(Sender: TObject);
beginend;procedure TForm2.FormMouseLeave(Sender: TObject);
begin
Timer1.Enabled :=true;
end;procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
timer1.Enabled :=false;end;procedure TForm2.ftop;
beginSelf.Left :=Self.Left +1;self.Top :=self.Top +1;
end;procedure TForm2.Timer1Timer(Sender: TObject);
begin
self.Left :=self.Left -1;
self.Top :=Self.Top -1;if Self.Top =400 then
begin
Timer1.Enabled :=False;
Timer2.Enabled :=true;end;end;procedure TForm2.Timer2Timer(Sender: TObject);
begin
self.Left :=self.Left +1;
self.Top :=Self.Top -1;if Self.Top =208  then
beginTimer2.Enabled :=False;Timer3.Enabled :=true;
end;end;procedure TForm2.Timer3Timer(Sender: TObject);
beginself.Left :=self.Left -1;
self.Top :=Self.Top -1;
if Self.Top <0 then
BEGINSELF.Free;
close;END;
end;end.

 

unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls;typeTForm3 = class(TForm)Timer1: TTimer;Timer2: TTimer;Timer3: TTimer;procedure Timer1Timer(Sender: TObject);procedure Timer2Timer(Sender: TObject);procedure Timer3Timer(Sender: TObject);procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);procedure FormMouseLeave(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm3: TForm3;implementation{$R *.dfm}procedure TForm3.FormCreate(Sender: TObject);
beginend;procedure TForm3.FormMouseLeave(Sender: TObject);
begin
self.Timer1.Enabled :=True;
end;procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Self.Timer1.Enabled :=False;
end;procedure TForm3.Timer1Timer(Sender: TObject);
begin
self.Left :=self.Left -1;
self.Top :=Self.Top -1;if Self.Top =500 then
begin
Timer1.Enabled :=False;
Timer2.Enabled :=true;
end;
end;procedure TForm3.Timer2Timer(Sender: TObject);
begin
self.Left :=self.Left +1;
self.Top :=Self.Top -1;if Self.Top =300  then
beginTimer2.Enabled :=False;Timer3.Enabled :=true;
end;
end;procedure TForm3.Timer3Timer(Sender: TObject);
beginself.Left :=self.Left -1;
self.Top :=Self.Top -1;
if Self.Top <0 then
BEGINSELF.Free;
close;
end;
end;end.

 

unit Unit4;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls;typeTForm4 = class(TForm)Timer1: TTimer;procedure Timer1Timer(Sender: TObject);procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);procedure FormMouseLeave(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm4: TForm4;implementation{$R *.dfm}procedure TForm4.FormCreate(Sender: TObject);
beginend;procedure TForm4.FormMouseLeave(Sender: TObject);
begin
self.Timer1.Enabled :=true;
end;procedure TForm4.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Self.Timer1.Enabled :=False;
end;procedure TForm4.Timer1Timer(Sender: TObject);
begin
self.Top :=self.Top -1;
if self.Top < 0 then
Close;
end;end.

 

转载于:https://www.cnblogs.com/flay/archive/2012/04/16/2452893.html

这篇关于Delphi 操作一个桌面泡泡程序的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/833152。

相关文章

Python位移操作和位运算的实现示例

Python位移操作和位运算的实现示例

《Python位移操作和位运算的实现示例》本文主要介绍了Python位移操作和位运算的实现示例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一... 目录1. 位移操作1.1 左移操作 (<<)1.2 右移操作 (>>)注意事项：2. 位运算2.1
阅读更多...
Python ZIP文件操作技巧详解

Python ZIP文件操作技巧详解

《PythonZIP文件操作技巧详解》在数据处理和系统开发中,ZIP文件操作是开发者必须掌握的核心技能,Python标准库提供的zipfile模块以简洁的API和跨平台特性,成为处理ZIP文件的首选... 目录一、ZIP文件操作基础三板斧1.1 创建压缩包1.2 解压操作1.3 文件遍历与信息获取二、进阶技
阅读更多...
Java中字符串转时间与时间转字符串的操作详解

Java中字符串转时间与时间转字符串的操作详解

《Java中字符串转时间与时间转字符串的操作详解》Java的java.time包提供了强大的日期和时间处理功能,通过DateTimeFormatter可以轻松地在日期时间对象和字符串之间进行转换,下面... 目录一、字符串转时间（一）使用预定义格式（二）自定义格式二、时间转字符串（一）使用预定义格式（二）自
阅读更多...
将Java程序打包成EXE文件的实现方式

将Java程序打包成EXE文件的实现方式

《将Java程序打包成EXE文件的实现方式》：本文主要介绍将Java程序打包成EXE文件的实现方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录如何将Java程序编程打包成EXE文件1.准备Java程序2.生成JAR包3.选择并安装打包工具4.配置Launch4
阅读更多...
Java程序进程起来了但是不打印日志的原因分析

Java程序进程起来了但是不打印日志的原因分析

《Java程序进程起来了但是不打印日志的原因分析》：本文主要介绍Java程序进程起来了但是不打印日志的原因分析,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录Java程序进程起来了但是不打印日志的原因1、日志配置问题2、日志文件权限问题3、日志文件路径问题4、程序
阅读更多...
Python结合PyWebView库打造跨平台桌面应用

Python结合PyWebView库打造跨平台桌面应用

《Python结合PyWebView库打造跨平台桌面应用》随着Web技术的发展,将HTML/CSS/JavaScript与Python结合构建桌面应用成为可能,本文将系统讲解如何使用PyWebView... 目录一、技术原理与优势分析1.1 架构原理1.2 核心优势二、开发环境搭建2.1 安装依赖2.2 验
阅读更多...
Java字符串操作技巧之语法、示例与应用场景分析

Java字符串操作技巧之语法、示例与应用场景分析

《Java字符串操作技巧之语法、示例与应用场景分析》在Java算法题和日常开发中,字符串处理是必备的核心技能,本文全面梳理Java中字符串的常用操作语法,结合代码示例、应用场景和避坑指南,可快速掌握字... 目录引言1. 基础操作1.1 创建字符串1.2 获取长度1.3 访问字符2. 字符串处理2.1 子字
阅读更多...
Python 中的 with open文件操作的最佳实践

Python 中的 with open文件操作的最佳实践

《Python中的withopen文件操作的最佳实践》在Python中,withopen()提供了一个简洁而安全的方式来处理文件操作,它不仅能确保文件在操作完成后自动关闭,还能处理文件操作中的异... 目录什么是 with open()？为什么使用 with open()？使用 with open() 进行
阅读更多...
Linux ls命令操作详解

Linux ls命令操作详解

《Linuxls命令操作详解》通过ls命令,我们可以查看指定目录下的文件和子目录,并结合不同的选项获取详细的文件信息,如权限、大小、修改时间等,：本文主要介绍Linuxls命令详解,需要的朋友可... 目录1. 命令简介2. 命令的基本语法和用法2.1 语法格式2.2 使用示例2.2.1 列出当前目录下的文
阅读更多...
SpringBoot实现微信小程序支付功能

SpringBoot实现微信小程序支付功能

《SpringBoot实现微信小程序支付功能》小程序支付功能已成为众多应用的核心需求之一,本文主要介绍了SpringBoot实现微信小程序支付功能,文中通过示例代码介绍的非常详细,对大家的学习或者工作... 目录一、引言二、准备工作（一）微信支付商户平台配置（二）Spring Boot项目搭建（三）配置文件
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2