2,498
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
XINGXIMU 2005-04-29
- 打赏
- 举报
procedure TForm1.ListView1DataHint(Sender: TObject; StartIndex,
EndIndex: Integer);
begin
end;
自带的事件就可以写啊
EndIndex: Integer);
begin
end;
自带的事件就可以写啊
liudancodeman 2005-04-29
- 打赏
- 举报
用ListItem的Data来保存。是一个指针能够保存任何的结构数据
type
PMyStruct=^TMyStruct;
TMyStruct=record
strTemp:string;
.........
end;
var
p:PMyStruct;
ListItem:TListItem;
begin
ListItem:=TListView.Add....
.....
new(p);
p^.strTemp:='hahaha';
ListItem.Data:=p;
type
PMyStruct=^TMyStruct;
TMyStruct=record
strTemp:string;
.........
end;
var
p:PMyStruct;
ListItem:TListItem;
begin
ListItem:=TListView.Add....
.....
new(p);
p^.strTemp:='hahaha';
ListItem.Data:=p;
