On Wed, Sep 11, 2013 at 5:41 AM, Howard Page-Clark <[email protected]> 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 -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
