HanDs
管理员

[Delphi文章] 创建一个虚幻的层窗口 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

procedure TForm1.FormCreate(Sender: TObject);
var
  ExSty:DWORD;
begin
  ExSty:=GetWindowLong(Handle,GWL_EXSTYLE);
  ExSty:=ExSty or WS_EX_TRANSPARENT or WS_EX_LAYERED;
  SetWindowLong(Handle,GWL_EXSTYLE,ExSty);
  SetLayeredWindowAttributes(Handle,cardinal(clBtnFace),125,LWA_ALPHA);
  MoveWindow(Handle,Screen.Width-Self.Width,0,Self.Width,Self.Height,false);
end;

在Win2000\XP下有效果.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
创建 一个 虚幻 窗口
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复