Delphi 锁住listview防止刷新

本文整理自网络，侵删。

 
    //更新数据
    //锁住listview防止刷新
    LockWindowUpdate(Self.ListView1.Handle);
    ListView1.Items.BeginUpdate;
    try
      with ListView1 do
      begin
        for i := 0 to Items.Count - 1 do
        begin

            Items.Item[i].SubItems.Strings[2] := CurrPx;
            Items.Item[i].SubItems.Strings[3] := ChangeRate;
            Items.Item[i].SubItems.Strings[5] := chosenTime;

        end;
      end;
    finally
      ListView1.Items.EndUpdate;
      //解锁listview
      LockWindowUpdate(0);
    end;

    //增加数据
    with listview1.items.add do
    begin
      subitems.add(Stockid);
      subitems.add(StockName);
      subitems.add(CurrPx);
      subitems.add(ChangeRate);
      subItems.Add(Ajson.ItemByName('changeRate').AsString);
      subitems.add(chosenTime);
    end;

 

相关阅读 >>

Delphi xe sha1

Delphi webbrowser1 保存文档为 .html

Delphi 清空目录以及子目录

Delphi写qq消息群发（模拟按键精灵）

Delphi开发linux包

Delphi �c 如何使用datasnap获取作为标头传递的标记？

win7下使用Delphi7的方法

Delphi 输入法设置(imemode与imename)

Delphi remobjects，您值得拥有

Delphi动态创建组件，并释放内存

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 锁住listview防止刷新