[Lazarus] TTreenode.data

[Howard Page-Clark]

On 11/09/2013 18:03, Flávio Etrusco wrote:
> 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" ?

Indeed that is what I meant, not what I wrote!