Hallo,
wenn Du sicher bist, dass in Data immer ein Objekt steht, dann kannst Du das auch enfach casten:
Delphi-Quellcode:
procedure TGLForm.ObjectsTreeTVChange(Sender: TObject; Node: TTreeNode);
begin
if TObject(Node.Data) is TS3DGroup then
showmessage('Group');
end;
Der Grund ist einfach: Typprüfung mit
is funktioniert nur mit Klassen, nicht mit Primitives (Integer, Byte, Pointer...).
Gruß
xaromz