Hmm, ich habe nun folgenden Code:
Delphi-Quellcode:
procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pick:=(GLSceneViewer1.GetPickedObject(x, y) as TGLCustomSceneObject);
if (pick<>oldpick) then begin
if assigned(oldpick) then oldpick.material.frontproperties.emission.color:=clrblack;
if assigned(pick) then
pick.material.frontproperties.emission.color:=clrred;
oldpick:=pick;
end;
end;
Aber ich bekomme immer die Meldung Undefinierter Bezeichner: 'GetPickedObject'.
