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。

相关文章

JAVA智听未来一站式有声阅读平台听书系统小程序源码

JAVA智听未来一站式有声阅读平台听书系统小程序源码

智听未来，一站式有声阅读平台听书系统 🌟&nbsp;开篇：遇见未来，从“智听”开始 在这个快节奏的时代，你是否渴望在忙碌的间隙，找到一片属于自己的宁静角落？是否梦想着能随时随地，沉浸在知识的海洋，或是故事的奇幻世界里？今天，就让我带你一起探索“智听未来”——这一站式有声阅读平台听书系统，它正悄悄改变着我们的阅读方式，让未来触手可及！ 📚&nbsp;第一站：海量资源，应有尽有 走进“智听
阅读更多...
EMLOG程序单页友链和标签增加美化

EMLOG程序单页友链和标签增加美化

单页友联效果图： 标签页面效果图： 源码介绍 EMLOG单页友情链接和TAG标签，友链单页文件代码main{width: 58%;是设置宽度 自己把设置成与您的网站宽度一样，如果自适应就填写100%，TAG文件不用修改 安装方法：把Links.php和tag.php上传到网站根目录即可，访问 域名/Links.php、域名/tag.php 所有模板适用，代码就不粘贴出来，已经打
阅读更多...
跨系统环境下LabVIEW程序稳定运行

跨系统环境下LabVIEW程序稳定运行

在LabVIEW开发中，不同电脑的配置和操作系统（如Win11与Win7）可能对程序的稳定运行产生影响。为了确保程序在不同平台上都能正常且稳定运行，需要从兼容性、驱动、以及性能优化等多个方面入手。本文将详细介绍如何在不同系统环境下，使LabVIEW开发的程序保持稳定运行的有效策略。 LabVIEW版本兼容性 LabVIEW各版本对不同操作系统的支持存在差异。因此，在开发程序时，尽量使用
阅读更多...
CSP 2023 提高级第一轮 CSP-S 2023初试题 完善程序第二题解析 未完

CSP 2023 提高级第一轮 CSP-S 2023初试题 完善程序第二题解析 未完

一、题目阅读 （最大值之和）给定整数序列 a0,⋯,an−1，求该序列所有非空连续子序列的最大值之和。上述参数满足 1≤n≤105 和 1≤ai≤108。 一个序列的非空连续子序列可以用两个下标 ll 和 rr（其中0≤l≤r<n0≤l≤r<n）表示，对应的序列为 al,al+1,⋯,ar​。两个非空连续子序列不同，当且仅当下标不同。 例如，当原序列为 [1,2,1,2] 时，要计算子序列 [
阅读更多...
这些心智程序你安装了吗？

这些心智程序你安装了吗？

原文题目：《为什么聪明人也会做蠢事（四）》 心智程序 大脑有两个特征导致人类不够理性，一个是处理信息方面的缺陷，一个是心智程序出了问题。前者可以称为“认知吝啬鬼”，前几篇文章已经讨论了。本期主要讲心智程序这个方面。 心智程序这一概念由哈佛大学认知科学家大卫•帕金斯提出，指个体可以从记忆中提取出的规则、知识、程序和策略，以辅助我们决策判断和解决问题。如果把人脑比喻成计算机，那心智程序就是人脑的
阅读更多...
动手学深度学习【数据操作+数据预处理】

动手学深度学习【数据操作+数据预处理】

import osos.makedirs(os.path.join('.', 'data'), exist_ok=True)data_file = os.path.join('.', 'data', 'house_tiny.csv')with open(data_file, 'w') as f:f.write('NumRooms,Alley,Price\n') # 列名f.write('NA
阅读更多...
线程的四种操作

线程的四种操作

所属专栏：Java学习        1. 线程的开启 start和run的区别： run：描述了线程要执行的任务，也可以称为线程的入口 start：调用系统函数，真正的在系统内核中创建线程（创建PCB，加入到链表中），此处的start会根据不同的系统，分别调用不同的api，创建好之后的线程，再单独去执行run（所以说，start的本质是调用系统api，系统的api
阅读更多...
uniapp设置微信小程序的交互反馈

uniapp设置微信小程序的交互反馈

链接：uni.showToast(OBJECT) | uni-app官网 (dcloud.net.cn) 设置操作成功的弹窗： title是我们弹窗提示的文字 showToast是我们在加载的时候进入就会弹出的提示。 2.设置失败的提示窗口和标签 icon：'error'是设置我们失败的logo 设置的文字上限是7个文字，如果需要设置的提示文字过长就需要设置icon并给
阅读更多...
Java IO 操作——个人理解

Java IO 操作——个人理解

之前一直Java的IO操作一知半解。今天看到一个便文章觉得很有道理（ 原文章），记录一下。 首先，理解Java的IO操作到底操作的什么内容，过程又是怎么样子。          数据来源的操作： 来源有文件，网络数据。使用File类和Sockets等。这里操作的是数据本身，1,0结构。    File file = new File("path");   字
阅读更多...
MySQL——表操作

MySQL——表操作

目录 一、创建表 二、查看表 2.1 查看表中某成员的数据 2.2 查看整个表中的表成员 2.3 查看创建表时的句柄 三、修改表 alter 3.1 重命名 rename 3.2 新增一列 add 3.3 更改列属性 modify 3.4 更改列名称 change 3.5 删除某列 上一篇博客介绍了库的操作，接下来来看一下表的相关操作。 一、创建表 create
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2