2025年11月13日 星期四  乙巳年 九月廿四 【蛇】丙戌月 丙戌日
用户名： 密　码： 保存
您现在的位置：首页 >> 界面报表 >> 界面报表 >> 内容

Delphi创建一个虚幻的层窗口(Win2000/XP)

时间：2011/9/3 15:24:00 点击： 1455

　　核心提示：procedure TForm1.FormCreate(Sender: TObject);var ExSty:DWORD;begin ExSty:=GetWindowLong(Handle,GWL_E...

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下有效果.

Tags:创建 创建一个 一个 虚幻 虚幻的 窗口 
作者：网络　来源：转载
惊讶 欠揍 支持 很棒 愤怒 搞笑 恶心 不解
  • 上一篇：Delphi中如何禁止某窗口被关闭的
  • 下一篇：Delphi实现界面跟随鼠标移动的实例
    • 共有评论 1 条相关评论
    发表我的评论
    • 大名：
    • 内容：
  • 盒子文章 技术支持:深圳市麟瑞科技有限公司(www.2ccc.com) © 2025 版权所有 All Rights Reserved.
  • 粤ICP备10103342号-1