On 11/09/2013 18:03, Flávio Etrusco wrote:
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" ?
Indeed that is what I meant, not what I wrote! -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
