Forum: Multimedia
Delphi
by 3_of_8,
21. Aug 2006
Das Problem ist: Meine Kamera hat nunmal kein TargetObject. Aber ich habe das ganze jetzt sowieso komplett umgeschrieben, sodass das Problem sich eigentlich erledigt hat.
Forum: Multimedia
Delphi
by 3_of_8,
21. Aug 2006
Ne, das geht nicht.
procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
GLCamera1.MoveAroundTarget((MousePos.Y - Y) / 2, (MousePos.X - X) / 2);
MousePos.X := X;
MousePos.Y := Y;
end;
Forum: Multimedia
Delphi
by 3_of_8,
21. Aug 2006
Morgen.
Ich hab grad ein Problem.
Ich will die Ansicht in einem TGLScene per Maus drücken, halten und ziehen drehen.
Momentan mache ich das so:
procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);