listview为vsIcon时的对应问题 急!!!!!!! listview在添加imagelisT中的图标的时候 除了CAPTION外是否可以添加保存其他的信息如这个图片在数据库中的PID字段(字符型) 以便当我们选择它的时候可以知道这个图标的PID的值(关键字) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以啊,ListView的每个Items都有一个Data属性,往这个里面放就可以啦! Linux2001(我想买手提电脑啊!) (可我不知道怎么写代码:(能给点代码吗? 你还真是麻烦,把分全部给我啊!unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls;type TForm1 = class(TForm) ListView1: TListView; ImageList1: TImageList; procedure ListView1DblClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.ListView1DblClick(Sender: TObject);begin ShowMessage(PChar(ListView1.Selected.Data));end;procedure TForm1.FormCreate(Sender: TObject);const a :array [0..3] of PChar = ('a', 'b', 'c', 'd');var i :integer;begin for i :=0 to 3 do ListView1.Items[i].Data :=a[i];end;end. 怎样控制遍历控件的数量。看在半夜做活不容易的份上,帮帮我。 关于数据库的查询,过滤的问题 简单问题。。。。。 为什么出现这种情况? 关于时间计算和dbgrid修改问题,谢谢 请问各大高手,我想用like '%[^-]%'筛选掉某字段中的带‘-’的记录为何不行! Delphi和VC Socket连接问题!各位老大帮帮忙!急! 哪里错了? 转载一篇文章,相信这不是在浪费您的时间(请版主不要删除) 向线程高手请教一关于线程的菜鸟问题。。。。 有没有办法减少SQL Server日志的大小? 请问斑竹在吗?看看我收到的短消息,真的想不到,欢迎大家参加。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, ComCtrls;type
TForm1 = class(TForm)
ListView1: TListView;
ImageList1: TImageList;
procedure ListView1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.ListView1DblClick(Sender: TObject);
begin
ShowMessage(PChar(ListView1.Selected.Data));
end;procedure TForm1.FormCreate(Sender: TObject);
const
a :array [0..3] of PChar = ('a', 'b', 'c', 'd');
var
i :integer;
begin
for i :=0 to 3 do
ListView1.Items[i].Data :=a[i];
end;end.