[Lazarus] TTreenode.data

[Flávio Etrusco]

On Wed, Sep 11, 2013 at 5:41 AM, Howard Page-Clark <hdpc at talktalk.net> wrote:
>
>
> Also unless you want the treeview to behave as if it were fully initialised
> with Data integer values of zero, you would need to add:
>
>
>
> procedure TfrmMain.tvMainChange(Sender: TObject; Node: TTreeNode);
> begin
>   if Assigned(Node) then
>     ShowMessage('Node ' + IntToStr(PtrInt(Node.Data)));
>

I guess you mean "if Assigned(Node.Data) then" ?

-Flávio