Firemonkey Problem mit Tutorial Kameras

[Sir Rufo]

Ich sehe in dem Tutorial eigentlich nur einen "Fehler", der eigentlich zunächst kein Fehler ist, aber ein Fehler werden kann:

Delphi-Quellcode:

 // Delphi code for the RB_Use_CameraChange method implementation
 procedure TForm23.RB_Use_CameraChange(Sender: TObject);
 begin
   FIsChangingCamera := true;
   try
      Form23.Camera := Sender as TCamera; // <- das kann ins Auge gehen
      TrackBar1.Value := Camera.Position.X;
      TrackBar2.Value := Camera.Position.Y;
      TrackBar3.Value := Camera.Position.Z;
   finally
      FIsChangingCamera := false;
   end;
 end;

Da wir hier auf eine Eigenschaft dieser Form-Instanz zugreifen möchten ist es ratsam, auch auf die Eigenschaft dieser Form-Instanz zuzugreifen und nicht auf die Eigenschaft der Form-Instanz, die unter der Variablen Form23 referenziert ist.

Delphi-Quellcode:

// falsch
Form23.Camera := Sender as TCamera; // <- das kann ins Auge gehen
// richtig
Self.Camera := Sender as TCamera; // Self => diese Form-Instanz
// richtig
Camera := Sender as TCamera; // ohne Angabe bezieht sich das auf Self

Also ist der angesprochene Fehler hier ein Abtipp-Fehler und keiner vom Tutorial.

[UPDATE]
Ich habe jetzt auch mal weitergelesen ... oh ja, da nehmen die tatsächlich TForm23 ...

Ok, teeren und federn, das ist natürlich absoluter Unsinn!