带进度条的ListView - Delphi

TOP

带进度条的ListView(三)

2017-10-10 12:06:46 【大中小】浏览:11788次

TForm1.btn1Click(Sender: TObject); var Item: TListItem; begin //使用： item := LV1.Items[1]; if Item = nil then Exit; item.subitems[1] := '30'; //设置为30% //然后刷新这个item ReDrawItem(LV1.handle, Item.Index); end; procedure TForm1.trckbr1Change(Sender: TObject); var Item: TListItem; begin //使用： item := LV1.Items[0]; item.subitems[1] := IntToStr(trckbr1.Position); //然后刷新这个item ReDrawItem(LV1.handle, Item.Index); end; end.

object Form1: TForm1
  Left = 416
  Top = 301
  Width = 494
  Height = 170
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn1: TButton
    Left = 272
    Top = 96
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 0
    OnClick = btn1Click
  end
  object lv1: TListView
    Left = 16
    Top = 8
    Width = 457
    Height = 81
    Columns = <
      item
        Caption = '名称'
        Width = 100
      end
      item
        Caption = '分类'
        Width = 100
      end
      item
        Caption = '进度'
        Width = 100
      end
      item
        Caption = '资源'
        Width = 100
      end>
    GridLines = True
    Items.Data = {
      5B000000020000000200000000000000FFFFFFFF020000000000000006B4F3B8
      BBCECC04D3CECFB70333354D01000000FFFFFFFFFFFFFFFF0200000000000000
      08446F7461B4ABC6E604D3CECFB7043130304DFFFFFFFFFFFFFFFF}
    ShowWorkAreas = True
    SmallImages = il1
    TabOrder = 1
    ViewStyle = vsReport
    OnCustomDrawItem = lv1CustomDrawItem
  end
  object trckbr1: TTrackBar
    Left = 16
    Top = 96
    Width = 233
    Height = 33
    Max = 100
    TabOrder = 2
    OnChange = trckbr1Change
  end
  object il1: TImageList
    Left = 384
    Top = 96
    Bitmap = {
      494C010103000F00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000

首页上一页 1 2 3 4 5 6 7 下一页尾页 3/13/13
【大中小】【打印】【繁体】【投稿】【收藏】【推荐】【举报】【评论】【关闭】【返回顶部】

上一篇：Firemonkey 调整 MainMenu 字型大..	下一篇：技术笔记：Indy的TIdSMTP改造，解..