Howard Page-Clark schrieb:
On 11/09/2013 18:03, Flávio Etrusco wrote:
On Wed, Sep 11, 2013 at 5:41 AM, Howard Page-Clark <[email protected]>
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!
In this case you can omit the "if" entirely.
DoDi
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
