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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
