相关推荐

delphi窗体透明

delphi窗体透明，D7上写的。适合学习，也很好玩。

使用SetWindowLong修改窗口样式

举例：修改窗口扩展样式：SetWindowLong(ListView1->Handle, GWL_EXSTYLE, WS_EX_LEFT|WS_EX_LTRREADING|WS_EX_RIGHTSCROLLBAR); 修改窗口样式：SetWindowLong(ListView1->Handle, GWL_STYLE, WS_CHILDWINDOW|WS_VISIBLE|WS_CLI...

实现鼠标穿透能力

  //实现鼠标穿透能力//  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE)//          | WS_EX_LTRREADING | WS_EX_TRANSPARENT | WS_EX_TOPMOST//          | WS_EX_TOOLWINDOW | WS_EX_LAYERED); 

Delphi中多个图像相互覆盖时实现无内容处点击穿透

 在下图显示，窗口中有两个控件A和B，而B控件中间部分则被A控件挡住了。正常情况下挡住的部分我们用鼠标是点不到B控件的，但有时候我们是需要点到B控件划线部分时(可以想像这两个控件是透明的，只显示连线)，可以在控件中实现如下方法：  procedure CMHitTest(var Message: TCMHitTest); message CM_HITTEST;proce

Delphi 控制程序在任务栏显示与隐藏

亲测在 RAD Studio 10.3 正常 //Delphi 控制程序在任务栏隐藏 SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); // Delphi 控制程序在任务栏显示 SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_APPWINDOW); 以上是在学习中记录的一点点笔记，以便以后翻阅。 ...

隐藏程序任务栏图标按钮

以前在Delphi6/7时代，如果要程序图标不在Windows任务栏显示，可以调用Windows API函数 SetWindowLong，但是进入Delphi2007时代后，发现原来的方法不行了，这是怎么回事呢？我想微软是不会轻易更改系统API函数的，在这一设定的前提下，我决定还是在Delphi2007上找原因。 我们知道，Delphi2007为了支持在Windows Vist...

使用duilib开发半透明异形窗体程序（附源码和demo）

转载请说明原出处，谢谢~~：                  半透明异形窗体的功能在之前维护的老版本的duilib里面已经有了基本的功能，但是因为一直存在较多的缺陷，所以我一直建议少用，就连我自己写仿酷狗项目也只是在几个小地方用了半透明异形窗体。不过今天在群里和其他几位朋友讨论后，发现了之前的许多问题以及解决方法。所以我立马修复了当前的库，并且写了一个半透明异形窗体的demo来测试效果。

delphi 鼠标获取窗口句柄_Windows窗口自定义，只需WindowTop一键设置

WindowTop 是一款窗口自定义设置工具可将任意窗口置顶、修改透明度等等「窗口置顶」将窗口置顶，可以方便我们对比、写作、修改文案等等使用WindowTop【窗口置顶】来将窗口钉在桌面最上方默认情况下，我们打开一个需要置顶的应用鼠标悬停在windowTop就可以看到四个功能按钮选择第二个【窗口置顶】功能点击按钮即可让这个应用始终置顶在最上方再次点击即可取消置顶「设置窗口透明度」可以直接对任意程序...

用DELPHI实现透明以及半透明窗体

    在QQ中，我可以调节面板的透明度。如果我们自己编程，应该如何实现呢？    （一）半透明窗体     在windows2000以及后续产品中下增加了一些API,可以轻易的实现半透明的窗体，源程序如下：interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dial

Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

主要介绍了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法,涉及Delphi操作窗口及鼠标事件的技巧,需要的朋友可以参考下

鼠标穿透到桌面和穿透到父窗口Demo

本文章地址：https://blog.csdn.net/qq21497936/article/details/89111786 博主博客地址：https://blog.csdn.net/qq21497936 遮罩层实现鼠标消息穿透（透明区域穿透，非透明区域不穿透） 实现需求1：鼠标穿透 实现需求2：软件分层构架的菜单穿透 作者：红模仿 QQ:21497936 日期：2019年04月08日

Delphi 给窗口增加系统菜单

给窗口 增加一个 系统菜单,要用到findwindow windows.GetSystemMenu windows.AppendMenu SetWindowLong 和回调函数

怎么实现“鼠标穿透”，即鼠标对窗体失去作用，对着它点右键要出现WINDOWS的桌面右菜单

Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Const WS_EX_TRANSPARENT   As Long = &H20&Private Declare Function GetWindowLong Lib "user32" Alias "G

你可能会用到的鼠标穿透~~~~~

何为输小穿透？ 意思是： 一图胜过千言万语! 在拖拽的方块的css中设置 { …style, pointer-events:none;★★★★★ }

SetWindowLong函数

SetWindowLong函数用来改变指定窗口的属性LONG WINAPI SetWindowLong( __in HWND hWnd, //指定窗口的句柄，或者间接地，窗口所属的类 __in int nIndex, //指定要设置的属性值的偏移地址 __in LONG dwNewLong //指定设置的新值 );参数nIndex的取值如下：GWL_EXSTYLE    ...

SetWindowLong和SetWindowPos函数详解

SetWindowPos函数功能：该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序。子窗口，弹出式窗口，及顶层窗口根据它们在屏幕上出现的顺序排序、顶层窗口设置的级别最高，并且被设置为Z序的第一个窗口。　　函数原型：BOOL SetWindowPos（HWN hWnd，HWND hWndlnsertAfter,int X，int Y,int cx，int cy,UNIT．Flag