登录
首页 » Delphi源码 » Delphi 应用程序背景与桌面融合在一起

Delphi 应用程序背景与桌面融合在一起

于 2022-02-02 发布 文件大小:6.46 kB
0 225
下载积分: 2 下载次数: 1

代码说明:

Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 用获取路径的方法得到圆形窗体
    Delphi 用获取路径的方法得到圆形窗体,制作实现一个非矩形窗口,可以说是一个不规则窗口了,圆形的窗口,标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体,然后设置窗口为透明模式,部分代码如下:   dc:=self.Canvas.Handle;   BeginPath(dc);   //根据路径创建不规则窗体   SetBkMode(dc,TRANSPARENT);   //设置为透明模式    Ellipse(dc,20,20,220,220);   EndPath(dc);   region:=PathToRegion(dc);   SetWindowRgn(self.Handle,region,TRUE);   end;
    2022-05-16 23:17:16下载
    积分:1
  • Delphi 程序控制关闭显示器
    Delphi 程序控制关闭显示器,不过我很好奇Delphi真能关闭显示器么?如果是用Delphi截断视频信号的输出,让显示器黑屏,这倒是有可能哦,但是让Delphi直接关闭显示器,有点不太可能吧?看了看代码,原来是这样:   begin   //关闭显示器   PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);   //打开显示器:   PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,0);   end;
    2022-04-01 11:14:50下载
    积分:1
  • Delphi使用AES算法加密下载
    整合网上下载到的资源(ElAES.pas,AES.pas),在Delphi7下编译后,测试能用
    2023-07-07 06:10:03下载
    积分:1
  • Delphi 使用ESC键停止循环
    Delphi 使用ESC键停止循环,示例演示程序,单击按钮开始循环,按下键盘ESC键,将停止循环。程序核心代码:   begin    for i:= 0 to 9999999 do    begin    Edit1.Text := IntToStr(i);    //允许应用程序在循环中可以处理消息    Application.ProcessMessages;    //用是 ESC 键放弁循环    if GetKeyState(VK_ESCAPE) and 128 = 128 then    Break;    end;   end;
    2022-03-24 17:07:24下载
    积分:1
  • Delphi 显示文件的播放进度
    Delphi 显示文件的播放进度,使用了Timer实现对进度的计算和显示。
    2022-05-28 13:11:17下载
    积分:1
  • Delphi 静音 左右声道音量控制
    Delphi控制系统静音,两个声道均不发出声音,同时若在非静态状态下,可控制左、右声道的音量大小,在代码中@表示指向变量v的指针(32位),调用此函数的用意就是得到右声道的值,在调节左声道的时候,不改变右声道}数字前面加$表示是十六进制数字,(t shl 8)表示t左移8位,部分参数设置代码如下:   procedure TForm1.FormCreate(Sender: TObject);   var    v:longint;   begin    waveoutgetvolume(0,@v);//得到现在音量,@v表示指向变量v的指针(32位)    trackbar1.Position:=hi(v);//设置左滑块的正确位置    trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置   end;
    2022-06-02 00:55:40下载
    积分:1
  • Delphi POP3接收邮件-Email客户端例子
    Delphi POP3接收邮件-Email源码实例,像是一个邮件客户端那样,设定好邮件服务器相关参数后,可连接到邮件服务器,接收邮件,本例子仅包括邮件接收功能,不能发送邮件哦。使用本程序需要设置的参数:邮件服务器POP3、端口、邮件帐户、密码,连接成功后,邮件列表会显示在“邮件”一栏中,单击任意一个邮件,详细信息会显示在“内容”栏中。
    2022-12-15 05:00:03下载
    积分:1
  • delphi 获取网页
    delphi 获取网页源码
    2023-01-22 10:05:04下载
    积分:1
  • Delphi 文件目录操作
    一个基础的Delphi 文件目录操作示例,这里是拷贝指定的文件夹目录,一是了解复制文件的原理,二是熟悉Delphi中的目录操作技巧。
    2022-03-15 15:35:17下载
    积分:1
  • Delphi 播放指定avi-mid-wav文件
    Delphi 播放指定avi-mid-wav文件,这几种都是音频格式,因此这个可以说是播放音频文件的例子,控制面板中包括了常用的播放控制按钮,在此基础上,可写出一个Delphi音乐播放器,当然本源码比较早了,适合学习一些简单的Delphi音频编程技巧。   procedure TForm1.N2Click(Sender: TObject);   begin    if OpenDialog1.Execute then    begin    with MediaPlayer1 do    begin    Filename := OpenDialog1.FileName ;    Open;    DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height );    Notify := true;    end;    end;   end;
    2023-05-08 02:15:02下载
    积分:1
  • 696518资源总数
  • 105877会员总数
  • 14今日下载