[Andrew101095]

Пишу на GLScene конструктор....не могу сделать отдоление камеры мышью.....вот сорц:

Код:

procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
   Camera: TGLCamera;
begin
   Camera := GLSceneViewer1.Camera;
   Camera.AdjustDistanceToTarget(Power(1.1, WheelDelta / 120));
end;

плиз хэлп...