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!