关于UpdateLayeredWindow的疑问???如果有一张32位的bitmap图片,透明度都初始好了,那么用这个函数,能根据不同的像素透明度显示出来一个背景透明的窗体吗主要是为了边缘平滑无锯齿的异形窗口
解决方案 »
- 请教下关于多态的问题
- 指定下载网址链接 自动下载文件
- 如何将汉字转化成UCS2码?
- ListView背景图片,Item的ICON不透明?----------------急急急 在线等ing
- 怎么样向大版主投诉, 支持hqhhh (枫叶), cnCharles(旺仔)网友来看看.
- 三张表的主从表如何建立?急!!!!!!!!!
- 小2,上茶~~翠花,酸菜~~
- 进度条怎么没反应啊?该怎么做?还有就是double类型怎么转为integer类型啊?
- 我用QReport做了两个报表,为何已运行这些报表就立刻退出了delphi?——急急急!
- 遇到难题,用delphi下载文件函数但无奈需要登录验证后才能下载,请大师指教怎么实现,在线等。。。。
- 请问写进销存软件、财务软件或ERP,除了编程技术之外,还应该补充哪些业务知识?
- delphi2007 IDE
var
AControl : TControl;
A, Margin, X, Y, CtlX, CtlY : Integer;
begin
Margin := ( Width - ClientWidth ) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );
CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );
for A := 0 to ControlCount - 1 do begin
AControl := Controls[A];
if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
then with AControl do begin
if Visible then begin
CtlX := X + Left;
CtlY := Y + Top;
CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
end;
end;
end;
SetWindowRgn(Handle, FullRgn, TRUE);