怎么样把一个FORM变透明啊?请大家帮帮忙,说详细点!
解决方案 »
- 关于GroupBar的用法
- 请问怎么改变toolbar(showcaptions=true)上面的按钮大小?
- cannot create file ‘d:\001.bmp'.另一个程序正在使用此文件,进程无法访问。----我的程序处理的图片多的时候出现如此提示的错误,如何
- 怎样做个局域网的信息公告
- 请问在用fastreport时,如何根据Memo的字段长度动态更改MasterData的高度?
- 怎么防止DBGrid输入重复的数据?高手们请进
- 紧急求助,高手请进(300分)!
- 同一台oracle数据库服务器,其他机器连接看到的数据都正常,就我看到的中文是乱码,为什么?
- dbgrideh有没有这样一个事件,调整列宽时触发
- 简单问题,看你会不会!
- 很急!在线等!
- 配置DCOM服务器问题,为什么启动权限一定要加上Everyone,客户端才能访问?(急)
AlphaBlend:=True;
AlphaBlendValue:=100;//数值在0~255之间,具体什么意思我用我多说了吧。如果你用的是 D6以前的版本那只好编成了。代码如下://先声明该函数和常量不要写在类里。
function SetLayeredWindowAttributes(Handle: HWND;COLORKEY: COLORREF; Alpha: BYTE; Flags: DWORD): Boolean; stdcall; external 'USER32.DLL';
Const
WS_EX_LAYERED = $80000;
LWA_ALPHA = 2;//再在Form的Create 中写如下代码。
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle,
GWL_EXSTYLE,
GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, 0, StrtoInt(Edit1.Text), 2);//Edit1.Text为0~255之间的整数
end;
将光标放到form的enabled上按F1将会有form的所有属性,你可以设置