1

我有一个带有通过鼠标事件旋转的相机的 GLScene

procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mdx:=X;
  mdy:=Y;
end;
    
procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 if Shift=[ssRight] then 
   GLCamera1.MoveAllAroundTarget(mdy - Y, mdx - X);
end;

我需要 GPPlane1 始终面向相机

4

0 回答 0