//窗体全透明,但窗体上的控件不透明
procedure TForm1.Button1Click(Sender: TObject);
Var
frmRegion, tempRegion: HRGN;
i: Integer;
Arect: TRect;
Begin
frmRegion := 0;
For I:= 0 To ControlCount - 1 Do Begin
aRect := Controls[i].BoundsRect;
OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );
tempRegion := CreateRectRgnIndirect( aRect );
If frmRegion = 0 Then
frmRegion := tempRegion
Else Begin
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
DeleteObject( tempRegion );
End;
End;
tempregion :=
CreateRectRgn( 0, 0, Width,
GetSystemMetrics( SM_CYCAPTION )+
GetSystemMetrics( SM_CYSIZEFRAME )+
GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil));
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
DeleteObject( tempRegion );
SetWindowRgn( handle, frmRegion, true );
End;
相关推荐
delphi PNG透明窗体 控件不透明
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责!...本人Delphi开发7年,有C++,IOS,JAVA,HTML5,android等开发人员。有需要可以找我
窗体半透明控件不透明 0分贡献
GDI+实现PNG透明窗体(控件不透明),欢迎大家前来学习。。。
delphi 实现的半透明漂亮的窗体。
Billenium Effects Delphi窗体特效控件,使用本控件可实现很多窗体的动画效果,比如像卷轴一样展开一个窗体,窗体的淡入与淡出等,让你的Delphi程序瞬间增色不少。
运行delphi程序时窗体中各控件大小随着窗体的变化而变化,控件布局也随之变化,不至于变得杂乱无章,影响界面的美观度,让你的程序受用户的欢迎!
Delphi根据窗体大小自动缩放控件..rar
delphi xe3 子窗体给父窗体的label 控件设置值
放在开发的窗口内,编译后的窗口放大缩小时,窗口的控件不会乱排。
可以任意自定义窗体。添加控件,自定义表单的制作从此易如反掌。
功能和DELPHI的窗体设计器相同的控件,可让你的程序在运行时设计窗体。 解压后有个FormDesigner.bpl,将它add到component中,编译的时候,请将lib路径加上解压的目录。 或者将DesignCommon.dcu、FormDesigner.dcu...
Delphi仿IDE的窗体控件拖动及改变大小,也就是说这是个用Delphi写的程序,模拟Delphi7编辑器的控件元素放置、拖动、改变大小的功能,在本程序的运行界面上,你只需单击鼠标就可以动态添加一个按钮元素,并在按钮的...
1. Delphi窗体自适应屏幕分辨率; 2. 亲自编写、亲测通过; 3. 代码公开,以便于有特殊要求时,您可以更改函数内容。
FlatStyle是在Delphi中美化窗体元素的一个控件,比如美化下拉 框、列表框、按钮、文本框、多选框之类的,可以为您节省不少的时间,安装时候请先进入packages文件夹,选择对应版本的*.dpk文件进行安装,然后Complie=>...
制作象QQ一样的按钮分组控件; 即象打开我的电脑时,在窗体左边看到那样按扭一样
Delphi窗体控件运行时拖动一例..rar
delphi2010 开发的 图片水印工具 透明Panel,用到拖动控件, 窗体保存图片技术 有源代码
API_控件与消息函数(delphi窗体)