码迷,mamicode.com
首页 > 其他好文 > 详细

Delphi 窗口半透明

时间:2014-05-18 03:59:53      阅读:212      评论:0      收藏:0      [点我收藏+]

标签:style   c   ext   int   a   get   

//    function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明               

//    引用Windows单元后可以直接使用


procedure TForm2.Button8Click(Sender: TObject);

var
  l:longint;
begin
  l:=getWindowLong(Handle, GWL_EXSTYLE);
  l := l Or WS_EX_LAYERED;
  SetWindowLong (handle, GWL_EXSTYLE, l);
  SetLayeredWindowAttributes (handle, 0, 180, LWA_ALPHA);
  //第二个参数是指定透明颜色
  //第二个参数为0则使用第四个参数设置alpha值,从0到255

end;



Delphi 窗口半透明,布布扣,bubuko.com

Delphi 窗口半透明

标签:style   c   ext   int   a   get   

原文地址:http://blog.csdn.net/gjtao1130/article/details/25964515

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!