当前位置: 开发笔记 > 编程语言 > 正文

老问题透明listview

作者：爱笑的美美6_833 | 来源：互联网 | 2023-08-28 17:18

问题如上:让listview透明显示就是类似有Transparent属性一样.求教怎么实现

问题如上:
让listview透明显示
就是类似有Transparent属性一样.
求教怎么实现

60 个解决方案

#1

没有,自己处理,加背景图片,取自listview的父控件的颜色

#2

新版的VCLskin中有个SKINCaptin控件，可以设置整个form的透明度，listview也跟随一起变透明

#3

取自listview的父控件的颜色,怎么取?
能否详细下

#4

给你段透明的代码,自己去改吧


procedure DrawParentBackground(Control: TControl; DC: HDC; R: PRect = nil; bDrawErasebkgnd: Boolean = False);
var
  SaveIndex: Integer;
  MemDC: HDC;
  MemBmp: HBITMAP;
begin
  if R <> nil then
  begin
    MemDC := CreateCompatibleDC(DC);
    MemBmp := CreateCompatibleBitmap(DC, Control.Width, Control.Height);
    SelectObject(MemDC, MemBmp);
    try
      with Control.BoundsRect.TopLeft do
        SetWindowOrgEx(MemDC, X, Y, nil);
      if bDrawErasebkgnd then
        Control.Parent.Perform(WM_ERASEBKGND, Integer(MemDC), Integer(MemDC));
      Control.Parent.Perform(WM_PAINT, Integer(MemDC), Integer(MemDC));
      with Control.BoundsRect.TopLeft do
        BitBlt(DC, R^.Left, R^.Top, R^.Right - R^.Left, R^.Bottom - R^.Top, MemDC, X + R^.Left, Y + R^.Top, SRCCOPY);
    finally
      DeleteObject(MemBmp);
      DeleteDC(MemDC);
    end;
    Exit;
  end;
  SaveIndex := SaveDC(DC);
  try
    with Control.BoundsRect.TopLeft do
      SetWindowOrgEx(DC, X, Y, nil);
    if bDrawErasebkgnd then
      Control.Parent.Perform(WM_ERASEBKGND, Integer(DC), Integer(DC));
    Control.Parent.Perform(WM_PAINT, Integer(DC), Integer(DC));
  finally
    RestoreDC(DC, SaveIndex);
  end;
end;

#5

三行代码以内，实现LISTVIEW透明，满足楼主要求。只是希望楼主再加点分以表示对问题的重视。

#6

好象还有点麻烦呢。。。

#7

Mark

#8

mwy654321:
我再加80分,但是我要实现的可不是要让listview有背景颜色,而是要让listview任何其他控件上透明,
假如有个image,或其他,让listview叠在这些控件上均能透明.
希望你能及时给我答复解决..
如果解决不了listview透明,stringgrid也行
sanguomi :我现在就去看下你的代码能否实现

#9

mwy654321:我都已经加分了,还不来解答,5555

#10

自己顶,急

#11

alphabend属性?

#12

alphabend,有这属性否,晕

#13

关注三行代码。

另外，根本不存在"alphabend"这样的属性，楼主不必被误导。

#14

回帖是一种美德！每天回帖即可获得 10 分可用分

#15

关注三行代码,顶起来

#16

为3行代码mark一下

#17

#18

不好意思，这几天有点忙，明天晚上把三行代码发到你信箱，现在在网吧上网有点不方便。

我再加80分,但是我要实现的可不是要让listview有背景颜色,而是要让listview任何其他控件上透明,
假如有个image,或其他,让listview叠在这些控件上均能透明.

答：去掉背景色，是透明的，叠在这些控件上均透明！

#19

用winapi嘛。

函数功能：设置窗口透明颜色
格式：BOOL SetLayeredWindowAttributes(
             HWND hwnd,         //窗口手柄
             COLORREF crKey,    //指定颜色值
             BYTE bAlpha,        //混合函数值
             DWORD dwFlags     //动作
             );

#20

{API声明}
type
  TSetLayeredWindowAttributes
    = function(wnd: HWND; crKey: DWORD;
      bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;

const
  WS_EX_LAYERED = ＄80000;
  LWA_ALPHA = 2;

var
  hLibUser32: THandle;
  MySetLayeredWindowAttributes:
      TSetLayeredWindowAttributes;

implementation

{＄R ＊.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  p: Pointer;
begin
  hLibUser32 := LoadLibraryA(‘user32.dll');
  MySetLayeredWindowAttributes := nil;
  if hLibUser32 <> 0 then begin
p:=GetProcAddress(hLibUser32,
    ‘SetLayeredWindowAttributes');
    if p = nil then begin
      FreeLibrary(hLibUser32);
      hLibUser32 := 0;
    end else begin
      MySetLayeredWindowAttributes :=
     TSetLayeredWindowAttributes(p);
    end;
  end;
  if hLibUser32 <> 0 then begin
    SetWindowLong(Handle, GWL_EXSTYLE,
      GetWindowLong(Handle, GWL_EXSTYLE)
       or WS_EX_LAYERED);
    ScrollBar1.Position := ScrollBar1.Max;
    ScrollBar1Change(Self);
  end else begin
    ShowMessage(‘该操作系统不支持！');
    Application.Terminate;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if hLibUser32 <> 0 then begin
     FreeLibrary(hLibUser32);
     hLibUser32 := 0;
  end;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
  alpha: Integer;
begin
  if hLibUser32 <> 0 then begin
    alpha := ScrollBar1.Position;
alpha := alpha ＊ 255 div
(ScrollBar1.Max － ScrollBar1.Min);
    if alpha < 8 then alpha := 8;
    if alpha > 255 then alpha := 255;
MySetLayeredWindowAttributes
(Handle, 0, Byte(alpha), LWA_ALPHA);
  end;
end;

----程序在Delphi5.0、Wndows2000操作系统下调试成功。

#21

引用 13 楼 ccrun 的回复:

关注三行代码。

另外，根本不存在"alphabend"这样的属性，楼主不必被误导。

哈哈，我也关注

#22

关注

#23

为什么发邮箱，楼主公开下阿

#24

引用 20 楼 shuaialang 的回复:

{API声明}
type
  TSetLayeredWindowAttributes
    = function(wnd: HWND; crKey: DWORD;
      bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;

const
  WS_EX_LAYERED = ＄80000;
  LWA_ALPHA = 2;

var
  hLibUser32: THandle;
  MySetLayeredWindowAttributes:
      TSetLayeredWindowAttributes;

implementation

{＄R ＊.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  p: Pointer;
begin
  hLibUser32 := LoadLibraryA(‘user32.dll');
  MySetLayeredWindowAttributes := nil;
  if hLibUser32 <> 0 then begin
p:=GetProcAddress(hLibUser32,
    ‘SetLayeredWindowAttributes');
    if p = nil then begin
      FreeLibrary(hLibUser32);
      hLibUser32 := 0;
    end else begin
      MySetLayeredWindowAttributes :=
    TSetLayeredWindowAttributes(p);
    end;
  end;
  if hLibUser32 <> 0 then begin
    SetWindowLong(Handle, GWL_EXSTYLE,
      GetWindowLong(Handle, GWL_EXSTYLE)
      or WS_EX_LAYERED);
    ScrollBar1.Position := ScrollBar1.Max;
    ScrollBar1Change(Self);
  end else begin
    ShowMessage(‘该操作系统不支持！');
    Application.Terminate;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if hLibUser32 <> 0 then begin
    FreeLibrary(hLibUser32);
    hLibUser32 := 0;
  end;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
  alpha: Integer;
begin
  if hLibUser32 <> 0 then begin
    alpha := ScrollBar1.Position;
alpha := alpha ＊ 255 div
(ScrollBar1.Max － ScrollBar1.Min);
    if alpha < 8 then alpha := 8;
    if alpha > 255 then alpha := 255;
MySetLayeredWindowAttributes
(Handle, 0, Byte(alpha), LWA_ALPHA);
  end;
end;

----程序在Delphi5.0、Wndows2000操作系统下调试成功。

至huaialang:
你好,我刚才用你教的方法测试了,可以设置form的透明度,
但我依此类推:
SetWindowLong(ListView1.Handle, GWL_EXSTYLE,
GetWindowLong(Listview1.Handle, GWL_EXSTYLE)
or WS_EX_LAYERED);
MySetLayeredWindowAttributes(ListView1.Handle, 0, Byte(alpha), LWA_ALPHA);
却改变不了listview的透明度,知道为什么吗?

#25

经过测试发现问题:
SetWindowLong(ListView1.Handle, GWL_EXSTYLE,
GetWindowLong(Listview1.Handle, GWL_EXSTYLE)
or WS_EX_LAYERED);
这里的SetWindowLong执行失败,

#26


  Test = class(TListView)
  public
     function IsCustomDrawn(Target: TCustomDrawTarget; Stage: TCustomDrawStage): Boolean; override;
  public
     IsTrantp: Boolean;
     constructor Create(AOwner: TComponent); override;
  end;

constructor Test.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  IsTrantp := True;
end;

function Test.IsCustomDrawn(Target: TCustomDrawTarget;
  Stage: TCustomDrawStage): Boolean;
var
  R1: TRect;
begin
  R1 := Self.ClientRect;
  DrawParentBackground(Self, Canvas.Handle, @R1, IsTrantp);
end;

// 测试
procedure TForm1.Button2Click(Sender: TObject);
var
  T1: Test;
begin
  T1 := Test.Create(self);
  T1.Parent := Self;
end;

#27

持续关注三行代码。

#28

等待楼主发出代码。

#29

引用 28 楼 zzflover 的回复:

等待楼主发出代码。

我也在等待大家帖代码,郁闷,
还没能解决

#30

再加50分,等待答案

#31

靠,不能加分

#32

关注NEW人三行代码！

#33

引用 32 楼 wooden954 的回复:

关注NEW人三行代码！

哪有这么好三行代码,还是等你来解决吧

#34

三行似乎不可能。除了下面必须的三行设置属性的代码：
SetWindowLong(Form.Handle, GWL_STYLE, GetWindowLong(Form.Handle, GWL_STYLE) and not WS_CLIPCHILDREN);
SetWindowLong(Listview.Handle, GWL_STYLE, GetWindowLong(Listview.Handle, GWL_STYLE) and not WS_CLIPSIBLING);
SetWindowLong(Listview.Handle, GWL_EX_STYLE, GetWindowLong(Listview.Handle, GWL_STYLE) or WS_EX_TRANSPARENT);
还需要截取listview的WM_ERASEBKGND消息

#35

来看一下.

#36

STUDAY

#37

听说有三行代码，关注一下

#38

持续关注三行代码

#39

引用 5 楼 mwy654321 的回复:

三行代码以内，实现LISTVIEW透明，满足楼主要求。只是希望楼主再加点分以表示对问题的重视。

#40

还没搞定？

#41

三行呢?

#42

"三行代码"就是新时代的大费马!

#43

想用设置窗口的方法来设置控件，都是徒劳的，哈哈

#44

自己写个从那里继承写个控件，先对控件做个透明处理，然后在自绘函数里把数据自绘上去

#45

引用 40 楼 sanguomi 的回复:

还没搞定？

555,没搞定,先搁着了

#46

引用 34 楼 idle_ 的回复:

三行似乎不可能。除了下面必须的三行设置属性的代码：
SetWindowLong(Form.Handle, GWL_STYLE, GetWindowLong(Form.Handle, GWL_STYLE) and not WS_CLIPCHILDREN);
SetWindowLong(Listview.Handle, GWL_STYLE, GetWindowLong(Listview.Handle, GWL_STYLE) and not WS_CLIPSIBLING);
SetWindowLong(Listview.Handle, GWL_EX_STYLE, GetWindowLong(Listview.Handle, GWL_STYLE) or WS_EX_TRANSPARENT);
还需要截取listview的WM_ERASEBKGND消息

恩,难做

#47

alphabend是CDC的成员函数！怎么叫没有？》？

#48

mark

#49

#50

关注
回复内容太短了！

推荐阅读

object
不同优化算法的比较分析及实验验证

本文介绍了神经网络优化中常用的优化方法，包括学习率调整和梯度估计修正，并通过实验验证了不同优化算法的效果。实验结果表明，Adam算法在综合考虑学习率调整和梯度估计修正方面表现较好。该研究对于优化神经网络的训练过程具有指导意义。 ... [详细]

蜡笔小新 2023-12-13 16:05:14
object
Java容器中的compareto方法排序原理解析

本文从源码解析Java容器中的compareto方法的排序原理，讲解了在使用数组存储数据时的限制以及存储效率的问题。同时提到了Redis的五大数据结构和list、set等知识点，回忆了作者大学时代的Java学习经历。文章以作者做的思维导图作为目录，展示了整个讲解过程。 ... [详细]

蜡笔小新 2023-12-14 13:53:31
go
CF：3D City Model（小思维）问题解析和代码实现

本文通过解析CF：3D City Model问题，介绍了问题的背景和要求，并给出了相应的代码实现。该问题涉及到在一个矩形的网格上建造城市的情景，每个网格单元可以作为建筑的基础，建筑由多个立方体叠加而成。文章详细讲解了问题的解决思路，并给出了相应的代码实现供读者参考。 ... [详细]

蜡笔小新 2023-12-13 14:17:11
object
Java中包装类的设计原因以及操作方法

本文主要介绍了Java中设计包装类的原因以及操作方法。在Java中，除了对象类型，还有八大基本类型，为了将基本类型转换成对象，Java引入了包装类。文章通过介绍包装类的定义和实现，解答了为什么需要包装类的问题，并提供了简单易用的操作方法。通过本文的学习，读者可以更好地理解和应用Java中的包装类。 ... [详细]

蜡笔小新 2023-12-12 15:48:10
version
to_a和to_ary有什么区别？ - What's the difference between to_a and to_ary?

Whatsthedifferencebetweento_aandto_ary?to_a和to_ary有什么区别？ ... [详细]

蜡笔小新 2023-12-11 19:30:04
object
Java面经整理及相关概念解析

本文整理了Java面试中常见的问题及相关概念的解析，包括HashMap中为什么重写equals还要重写hashcode、map的分类和常见情况、final关键字的用法、Synchronized和lock的区别、volatile的介绍、Syncronized锁的作用、构造函数和构造函数重载的概念、方法覆盖和方法重载的区别、反射获取和设置对象私有字段的值的方法、通过反射创建对象的方式以及内部类的详解。 ... [详细]

蜡笔小新 2023-12-10 22:17:08
io
GetWindowLong函数

今天在看一个代码里头写了GetWindowLong(hwnd,0)，我当时就有点费解，靠，上网搜索函数原型说明，死活找不到第 ... [详细]

蜡笔小新 2023-12-14 17:58:15
controller
SpringBoot uri统一权限管理的实现方法及步骤详解

本文详细介绍了SpringBoot中实现uri统一权限管理的方法，包括表结构定义、自动统计URI并自动删除脏数据、程序启动加载等步骤。通过该方法可以提高系统的安全性，实现对系统任意接口的权限拦截验证。 ... [详细]

蜡笔小新 2023-12-14 16:11:30
utf-8
XML介绍与使用的概述及标签规则

本文介绍了XML的基本概念和用途，包括XML的可扩展性和标签的自定义特性。同时还详细解释了XML标签的规则，包括标签的尖括号和合法标识符的组成，标签必须成对出现的原则以及特殊标签的使用方法。通过本文的阅读，读者可以对XML的基本知识有一个全面的了解。 ... [详细]

蜡笔小新 2023-12-13 17:39:50
header
php 主动断掉http,怎么在PHP项目中实现一个HTTP断点续传功能

怎么在PHP项目中实现一个HTTP断点续传功能发布时间：2021-01-1916:26:06来源：亿速云阅读：96作者：Le ... [详细]

蜡笔小新 2023-12-12 17:17:29
io
java boolean 大小_java boolean 大小

先看官方文档TheJavaTutorialshavebeenwrittenforJDK8.Examplesandpracticesdescribedinthispagedontta ... [详细]

蜡笔小新 2023-12-12 13:36:56
version
JDK源码学习之HashTable(附带面试题)的学习笔记

本文介绍了JDK源码学习之HashTable(附带面试题)的学习笔记，包括HashTable的定义、数据类型、与HashMap的关系和区别。文章提供了干货，并附带了其他相关主题的学习笔记。 ... [详细]

蜡笔小新 2023-12-12 13:05:17
go
Swing组件及其用法，图标接口的定义和创建方法

本文介绍了Swing组件的用法，重点讲解了图标接口的定义和创建方法。图标接口用来将图标与各种组件相关联，可以是简单的绘画或使用磁盘上的GIF格式图像。文章详细介绍了图标接口的属性和绘制方法，并给出了一个菱形图标的实现示例。该示例可以配置图标的尺寸、颜色和填充状态。 ... [详细]

蜡笔小新 2023-12-11 21:03:59
io
重入锁（ReentrantLock）学习及实现原理

本文介绍了重入锁（ReentrantLock）的学习及实现原理。在学习synchronized的基础上，重入锁提供了更多的灵活性和功能。文章详细介绍了重入锁的特性、使用方法和实现原理，并提供了类图和测试代码供读者参考。重入锁支持重入和公平与非公平两种实现方式，通过对比和分析，读者可以更好地理解和应用重入锁。 ... [详细]

蜡笔小新 2023-12-11 15:16:28
js
GregorianCalendar类方法的介绍及使用注意事项

本文介绍了GregorianCalendar类的基本信息，包括它是Calendar的子类，提供了世界上大多数国家使用的标准日历系统。默认情况下，它对应格里高利日历创立时的日期，但可以通过调用setGregorianChange()方法来更改起始日期。同时，文中还提到了GregorianCalendar类为每个日历字段使用的默认值。 ... [详细]

蜡笔小新 2023-12-11 13:35:26

爱笑的美美6_833

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章