Delphi TListview自绘某列添加图片按钮并实现点击事件响应

浅浅的花香味﹌ 2023-10-04 23:16 17阅读 0赞

**最终实现的效果如下图**：

![bd88da7f95b141bc82102a52f6246f73.png][]

**点击对应列对应行按钮。显示出对应行的caption字段的值**

![781f3d90249b480195a601acf6f1c8da.png][]

**完整源码如下**：

unit uMain;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, ExtCtrls, ComCtrls, StdCtrls, Spin, Buttons, ImgList;
    
    type
      TForm1 = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        TabSheet3: TTabSheet;
        StatusBar1: TStatusBar;
        ListView1: TListView;
        Panel1: TPanel;
        Label1: TLabel;
        cbSource: TComboBox;
        cbDestination: TComboBox;
        Label2: TLabel;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        Label3: TLabel;
        DateTimePicker1: TDateTimePicker;
        btnQuery: TButton;
        CheckBox1: TCheckBox;
        SpinEdit1: TSpinEdit;
        Label4: TLabel;
        ImageList1: TImageList;
        Label5: TLabel;
        CheckBox2: TCheckBox;
        CheckBox3: TCheckBox;
        CheckBox4: TCheckBox;
        CheckBox5: TCheckBox;
        CheckBox6: TCheckBox;
        CheckBox7: TCheckBox;
        SpeedButton1: TSpeedButton;
        procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
          Item: TListItem; SubItem: Integer; State: TCustomDrawState;
          var DefaultDraw: Boolean);
        procedure btnQueryClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure  Look(Sender: TObject);
        procedure Init;
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
      bmp:TBitmap;
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.btnQueryClick(Sender: TObject);
    begin
      bmp:=TBitmap.Create;
      bmp.LoadFromFile('Snipaste_2022-12-12_02-15-59.bmp');
      Init;
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ListView1.DoubleBuffered:=True;
    end;
    
    procedure TForm1.Init;
    var
      Item: TListItem;
      i: Integer;
    begin
      ListView1.Items.Clear;
      for i := 1 to 15 do
      begin
        Randomize; //初始化随机数发生器
        Item := ListView1.Items.Add;
        Item.Caption := 'G'+ IntToStr(Random(10000));
        Item.SubItems.Add(IntToStr(10 + i));
        Item.SubItems.Add(IntToStr(100 + i));
        Item.SubItems.Add(IntToStr(1000 + i));
        Item.SubItems.Add(IntToStr(2000 + i));
        Item.SubItems.Add(IntToStr(3000 + i));
        Item.SubItems.Add(IntToStr(4000 + i));
        Item.SubItems.Add(IntToStr(5000 + i));
        Item.SubItems.Add('有');
        Item.SubItems.Add('-');
        if i mod 2 = 1 then  Item.SubItems.Add('有')
        else  Item.SubItems.Add(IntToStr(Random(20)));
    
        Item.SubItems.Add(IntToStr(9000 + i));
        Item.SubItems.Add('-');
        Item.SubItems.Add(IntToStr(1100 + i));
        Item.SubItems.Add(IntToStr(1200 + i));
        Item.SubItems.Add(IntToStr(1300 + i));
        Item.SubItems.Add(IntToStr(1400 + i));
        //Item.SubItems.Add(IntToStr(2500 + i));
        Item.SubItems.Add('');
      end;
    
    end;
    
    
    
    
    
    
    //---------------------------------------------------------------------------
    {
    var
      I, J: Integer;
      P: TSpeedButton;
    
    for I := 0 to FlstVisbleB.Count -1 do
    begin
      P := TSpeedButton(FlstVisbleB.Objects[I]);
      P.Visible := False;
      if P.Tag <> 0 then
      begin
        TImage(P.Tag).Visible := False;
        TImage(P.Tag).Left := J;
      end;
    end;
    }
    procedure  TForm1.Look(Sender: TObject);
    var
      pb:TSpeedButton;
      p:TListItem;
    
    begin
      //ShowMessage('您点击了');
       pb := TSpeedButton(Sender);
       p := TListItem(pb.Tag);
       //pb.Visible := false;
       //ShowMessage(Format('pb.Tag:%d | Caption:%s',[pb.Tag , ListView1.Items[pb.Tag].Caption]));
       //if(p.SubItems.Count >0) then
       //ShowMessage(p.SubItems.Strings[10]);
       ShowMessage(p.Caption);
    
    end;
    
    
    procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
    var
      Rect: TRect;
      Button: TSpeedButton;
    begin
      //DefaultDraw := False; // 不显示默认的文本.
      { 比如：第2列上显示CheckBox,第5列上显示Button }
      //if SubItem in [2, 5] then
      if SubItem = 16 then
      begin
        if Item.Data = nil then
        begin
          DefaultDraw := False;
          Rect := Item.DisplayRect(drBounds); // 获取Item显示的区域.
          Button := TSpeedButton.Create(ListView1);
    
          Button.Parent := ListView1;
          //Button.Caption := '预定';
          Button.Glyph := bmp;
          Button.Width := 55;
          Button.Height := 22;
          Button.Left := Rect.Right - ((ListView1.Columns.Items[16].Width + Button.Width) div 2) - 7;
    
          Button.Top := Rect.Top;
          Button.Visible := True;
          Button.Flat := True;
          //Button.Tag := Item.Index; //ListView1中第几行  用这个也是ok的
          Button.Tag := Integer(Item);
          Item.Data := Button;
    
          Button.OnClick := Look;
        end;
      end;
    end;
    
    end.

[bd88da7f95b141bc82102a52f6246f73.png]: https://img-blog.csdnimg.cn/bd88da7f95b141bc82102a52f6246f73.png
[781f3d90249b480195a601acf6f1c8da.png]: https://img-blog.csdnimg.cn/781f3d90249b480195a601acf6f1c8da.png