[Lazarus] TTreenode.data

[Mattias Gaertner]

On Thu, 12 Sep 2013 06:39:55 +0100
Richard Mace <richard.mace at gmail.com> wrote:

> [...]
> procedure TfrmMain.tvMainSelectionChanged(Sender: TObject);
> begin

Sender is the tvMain.

>   if Assigned(TTreeNode(Sender).Data) then
>     ShowMessage('Node ' + IntToStr(TUser(TTreeNode(Sender).Data).Id));
> end;
> 
> I'm obviously doing something a bit daft, but can't work out what?
> Any input would be greatly received.

Mattias