突然发现原来的帖子无法浏览了,呵呵。这次在这里给出下载地址。
http://www.cnoop.com/opensoft.asp?soft_id=84&url=1
或在 
http://www.cnoop.com/     首页中查找
GLScene 为DELPHI提供了基本的OPENGL的3D模型及框架. 通过GLScene中的可视化组件,你可以轻松的创建和渲染你的3D场景。不用书写一行代码就可以制作一个复杂的场面,这是我见过的最好的OPENGL插件!
这次共翻译了 灯光,阴影,材质,声音,地形,火焰,粒子,地形,摄像机等部分,希望能够对大家有所帮助.由于本人水平有限,所以保留了原来英文帮助的原文,如果你认为我的翻译不够准确,请直接参照原文.
翻译样式如下 :
声 明 
procedure MoveAroundTarget(pitchDelta, turnDelta : Single);描 述 以目标为中心旋转摄像机。 如果没有选择目标,则不产生任何影响。 pitchDelta和turnDelta是旋转参数,可以想像为对应X,Y。提 示 :该函数通常用于鼠标左键。可以产生用鼠标移动物体的效果,以下是代码实例:
//这里是我自己添加的部分,不用修改可以直接拷贝运行
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<>[] then
begin
Camera_third.MoveAroundTarget(mdy-y, mdx-x);
mdx:=x; mdy:=y;
end;
end;