关于LISTBOX的自绘<以及仿背景透明的实现>

最新推荐文章于 2018-02-01 11:16:00 发布

siegel

最新推荐文章于 2018-02-01 11:16:00 发布

阅读量606

点赞数

分类专栏： Delphi 文章标签： integer image button forms windows class

本文链接：https://blog.csdn.net/siegel/article/details/6620822

版权

这篇博客探讨了如何在Delphi中实现TListBox的自绘，包括设置lbOwnerDrawVariable样式，加载背景图片并绘制，以及解决自绘文本颜色问题。作者通过模拟鼠标点击事件解决了文本显示白色的问题，并分享了实现控件背景透明的理论来源。

摘要由CSDN通过智能技术生成

今天又研究了一下列表框的自绘问题，对自绘又有了一些进一步的认识
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg,ExtCtrls;

type
TForm1 = class(TForm)
    Image1: TImage;
    ListBox1: TListBox;
    Button1: TButton;
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
x,y,w,h : LongInt;
Bitmap1: TBitmap;
begin
//listbox1的style属性应设置为 lbOwnerDrawVariable