[Lazarus] TTreenode.data
Richard Mace
richard.mace at gmail.com
Wed Sep 11 07:51:29 CEST 2013
Hi,
Can anyone give me an example of adding and retrieving an integer value to
a TTreenode via it's data property please?
I've tried the below, but it doesn't seem to work.
Set:
with
tvMain.Items.AddChildObject(tvMain.Selected,'string',TObject(fUserList.Items[I].Id))
do
and getting as, throws an exception on start:
procedure TfrmMain.tvMainChange(Sender: TObject; Node: TTreeNode);
begin
ShowMessage('Node ' + IntToStr(Integer(Node.Data)));
end;
Thanks in advance
Richard
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130911/6be89c4f/attachment-0002.html>
More information about the Lazarus
mailing list