[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