procedure TForm1.FormCreate(Sender: TObject);
var
ExtStyle : LongInt;
begin
Step:=255;
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0,0,0), 150, 2);
end;
var
ExtStyle : LongInt;
begin
Step:=255;
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0,0,0), 150, 2);
end;
解决方案 »
- 如何把drawgrid做成excel的样子(仅外观)
- 工作需要将图片保存为PSD格式,图片本身只是一个图层,请问哪个控件可以做到?imageen可以吗?
- 问一个不太难的问题,可是我真的不懂,在线等!!!
- sdzeng(大头鸟) 进来,有话说
- 如何象瑞星那样监控网页代码?顶者有分!
- 求delphi5开发人员指南
- 高手,请你帮助解答一下这个问题,本人有高分相送!!
- 用dephi做带CHECKBOX的TREEVIEW怎么做?
- 长沙要delphi的人多吗
- 在DELPHI中能用ADO连接远程有固定IP的数据库服务器上的数据库吗?怎么连接?
- 请问一个关于生成无边框窗体的问题?
- 一个Delphi和asp的问题:Delphi程序安装到win2000上后执行asp程序,不明白。。看里面。。
WS_EX_LAYERED = $00080000;