各位大哥帮帮忙,我刚学DELPHI不久不会在LISTVIEW中加入SubItems,谢谢了,在线。 在LISTVIEW中加入SubItems,怎么加呀 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 delphi帮助转贴,呵呵procedure TForm1.FormCreate(Sender: TObject);const Names: array[0..5, 0..1] of string = ( ('Rubble', 'Barney'), ('Michael', 'Johnson'), ('Bunny', 'Bugs'), ('Silver', 'HiHo'), ('Simpson', 'Bart'), ('Squirrel', 'Rockey') );var I: Integer; NewColumn: TListColumn; ListItem: TListItem; ListView: TListView;begin ListView := TListView.Create(Self); with ListView do begin Parent := Self; Align := alClient; ViewStyle := vsReport; NewColumn := Columns.Add; NewColumn.Caption := 'Last'; NewColumn := Columns.Add; NewColumn.Caption := 'First'; for I := Low(Names) to High(Names) do begin ListItem := Items.Add; ListItem.Caption := Names[I][0]; ListItem.SubItems.Add(Names[I][1]); end; end;end; procedure TForm1.Button2Click(Sender: TObject);var tmp:TListItem;begin tmp:=listview1.Items.Add ; tmp.Caption :='test'; tmp.SubItems.Add('dd');end; 字符串的读取,急, maskedit的使用 关于GetWindowLong,在线等,解决立即给分. 请教我的delphi编译时出现找不到xls控件,请问是何控件啊,在哪里下载 SPcomm控件遇到难题??? 收藏 不显示删除回复显示所有回复显示星级回复显示得分回复 请教tcpclient控件发送数据一次最多发送多少字节? 批量打印问题,在线等 怎么在RichEdit中加入rtf文件格式的控制符 有关字段名的问题??? 如何制作启动画面: 请问EDIT中的IMEMODE属性是什么作用?在先等待! 如何获得Excel中sheet的数目??谢谢
procedure TForm1.FormCreate(Sender: TObject);const
Names: array[0..5, 0..1] of string = (
('Rubble', 'Barney'),
('Michael', 'Johnson'),
('Bunny', 'Bugs'),
('Silver', 'HiHo'),
('Simpson', 'Bart'),
('Squirrel', 'Rockey')
);var
I: Integer;
NewColumn: TListColumn;
ListItem: TListItem;
ListView: TListView;
begin
ListView := TListView.Create(Self);
with ListView do
begin
Parent := Self; Align := alClient;
ViewStyle := vsReport; NewColumn := Columns.Add;
NewColumn.Caption := 'Last';
NewColumn := Columns.Add;
NewColumn.Caption := 'First'; for I := Low(Names) to High(Names) do
begin
ListItem := Items.Add;
ListItem.Caption := Names[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;
end;
var
tmp:TListItem;
begin
tmp:=listview1.Items.Add ;
tmp.Caption :='test';
tmp.SubItems.Add('dd');
end;