delphi 中 ListView 控件的问题..

来源：百度知道 编辑：UC知道 时间：2024/05/29 22:52:37
我想在如下的一个ListView 控件上的"大小"上添加内容,代码怎样写..???
下面是 ListView 控件的模拟图,因为这里不能插如图片...
___________________________________________
目录 | 大小 | |
-------------------------------------------|
| | |
| | |
| | |
-------------------------------------------|

注意是 delphi 代码..

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DB, ADODB, Menus;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
du: TButton;
ADOQuery1: TADOQuery;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
change: TButton;
add: TButton;
addchild: TButton;
PopupMenu1: TPopupMenu;
Nadd: TMenuItem;
Naddchild: TMenuItem;
Nchange: TMenuItem;
Ndelete: TMenuItem;
procedure duClick(Sender: TObject);
Function AddNode(TreeView:TTreeView;Node:TTreeNode;ADOQ:TADOQuery):TTreeNode;
Function SearchNode(TreeView:TTreeView;Txts:String):TTreeNode;
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure changeClick(Sender: T