hope this helps!
illustration of what you can do:
TMyListItem = class(TListItem)
private
FmyString: string;
procedure SetmyString(const Value: string);
published
property myString:string read FmyString write SetmyString;
end;
TMyListView = class(TCustomListView)
protected
function CreateListItem: TListItem; override;
end;
-------------------
function TMyListView.CreateListItem: TListItem;
begin
Result:=TMyListItem.Create(Items);
end;
procedure TMyListItem.SetmyString(const Value: string);
begin
FmyString := Value;
Caption:='value:'+myString;
end;
--------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
Flist:=TMyListView.Create(Self);
flist.Parent:=Self;
flist.align:=alclient;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aItem:TmyListItem;
begin
aItem:=Flist.Items.Add as TmyListItem;
aItem.myString:='boo';
end;
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
