zoukankan      html  css  js  c++  java
  • 使用 TListView 控件(1)


    第一次使用 ListView 是最近两三天的事: http://www.cnblogs.com/del/archive/2008/12/31/1365745.html

    当时我就想: 一定要理顺它, 这是个常用且复杂的控件!

    本例效果图:



    代码文件:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ComCtrls;
    
    type
      TForm1 = class(TForm)
        ListView1: TListView;
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ListView1.Items.Add.Caption := 'Item' + IntToStr(ListView1.Items.Count);
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      ListView1.Clear;
    end;
    
    end.
    

    窗体文件:
    object Form1: TForm1
      Left = 0
      Top = 0
      Caption = 'Form1'
      ClientHeight = 181
      ClientWidth = 275
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      PixelsPerInch = 96
      TextHeight = 13
      object ListView1: TListView
        Left = 8
        Top = 8
        Width = 250
        Height = 121
        Columns = <>
        TabOrder = 0
      end
      object Button1: TButton
        Left = 54
        Top = 141
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 151
        Top = 141
        Width = 75
        Height = 25
        Caption = 'Button2'
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    
  • 相关阅读:
    vim how to set nu with 0-index instead of 1-index
    @property的介绍与使用
    X[:,0]和X[:,1]
    the best guide for git
    sorted(列表)
    Java的匿名函数
    成员变量和局部变量的区别
    Java数组合并
    Java中random的使用
    Git常见错误---git branch不显示本地分支的问题
  • 原文地址:https://www.cnblogs.com/del/p/1367801.html
Copyright © 2011-2022 走看看