Le 11/09/2013 07:51, Richard Mace a écrit :
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
change to:
with tvMain.Items.AddChildObject(tvMain.Selected,'string',
*Pointer*(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)));
change to:
ShowMessage('Node ' + IntToStr(*PtrInt***(Node.Data)));
Antonio.
end;
Thanks in advance
Richard
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
