写文章的时候 脑子有点乱 unit uMainForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TOb…

{******************************************************************************* 半透明窗体控件 版本:1.0 功能说明 : 1.支持颜色和图片半透明 2.暂时只能手动指定背景图片 3.可调透明度(0..255) 4.可控制是否可移动窗体 联系方式: Email: mdejtoz@163.com *************************************************************…

很简单了 现在,适用所有控件和窗体: delphi设置窗口透明 form1.AlphaBlend :=true; //透明form1.AlphaBlendValue :=180; //透明度form1.TransparentColor :=true; //透明颜色 ------------------------------------------------------------- 帖子1:http://zhidao.baidu.com/link?url=PC1llYKS1ak_QaRvMK…

delphi实现窗体闪烁功能 以前做窗口闪动时都没有考虑到让任务栏上的按钮闪动的问题, 现在一个客户需要任务栏按钮闪动,发现以前使用的flashwindow不能达到要求了, 查找了一下,找到flashwindowex这个API 如果您创建的应用程序是运行在Windows 98或更高版本操作系统上,您可以通过调用API函数FlashWindowEx并赋给它一个FlashWInfo结构体来实现. 而如果是运行在Windows 95上则比较麻烦, 但您也可以通过使用一个Timer组件来实现想要的效果.…

Delphi中窗体的事件 Form窗体可以响应各种各样的时间,在Object Inspector的Events页面中罗列了一大堆,如下图: 下面将要列出一些常用的事件. 1.OnActivate 当窗体被初始激活时,就会发生OnActivate事件,当初始创建窗体或者用户从一个窗体切换到另一个窗体时,就可能激活窗体,Application对象也有一个OnActivate事件,当用户从一个应用程序切换到另一个应用程序时,就会产生此事件. 2.OnClose和OnCloseQuery 当关闭一个应用…

Windows Mobile,个人心中臻至完美的系统. 不忍自己对WM的钻研成果消逝,故留作纪念. 系列开篇,便是一个曾令自己困扰很久的问题:如何实现半透明窗体. 如果了解Win32编程,其实很简单. 主要用到了三个方法: SetLayeredWindowAttributes GetWindowLong SetWindowLong 核心代码: private void SetWindowTransparent(byte bAlpha) { SetWindowLong(this.Handle, (…

unit xDrawForm; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus, Graphics,GDIPOBJ,GDIPAPI,GDIPUTIL; type TwwGDIImage = class public n_Pos_X : Integer; n_Pos_Y : Integer; n_Width : Integer; n_Height : Integer; GPImageNormal…

当年Vista系统刚出来的时候,最吸引人的莫过于半透明磨砂的窗体界面了,迷倒了多少人.这个界面技术随即引发了编程界的一阵骚动,很多人都在问:如何实现这一界面效果?当然,在Vista下倒是很简单,系统本身支持,所以几乎不需要写一句代码,但是当时还是XP的天下,于是大家就可以研究在XP下如何实现这一效果. 最先实现的应该是桌面天气秀,还有笨笨钟,后来鱼鱼软件的鱼鱼桌面秀也成功在XP下模仿了Vista的侧边栏,的确,让人很激动,但是他们保密,问也问不到究竟是用了什么技术,记得当年大富翁论坛(http:…

  今天在打开一个Delphi窗体时报了这么一个错误: Corrupt Portfolio Stream 查了一下,主要是由于Delphi窗体的*.ddp文件损坏引起的. 解决方法: 删除.ddp 文件,重新打开窗体即可. 有时候还是不行,这个时候用记事本打开 那个.dfm文件,通常窗体都是以Text形式存储的,如果发现是二进制代码,那么八成窗体文件也坏了,这个时候删除这个窗体文件, 把 *.~dfm备份文件改名字成 *.dfm ,然后就可以了. 关于*.ddp file, Delphi Dia…

在窗体依据屏幕分辨率自适应调整尺度方面,昨天的工作可以说是一个突破点.昨天的工作找到了长期以来我的原有方案的问题所在,这是非常关键的.但是昨天晚上的解决方案并不完美,今天的这个才是比较完美的解决版. 先补充说明一下这个问题的重要性.这本来只是一个很小的技术问题,但在现有的Windows软件开发过程中,这个问题非常常见.一些非常著名的商业化软件,也会发现这方面的问题.Delphi的IDE本身在不同屏幕分辨率的机器上运行时,有些界面也会出现变形和控件找不到的情况:Adobe是家软件大公司,他的PDF…