Maus an Position x positionieren

[Mavarik]

Zitat von gfjs:

OT

Hab's ausprobiert!

Fehlermeldung: unbekannter Bezeichner 'MeimChefSeineKaffeTasse' (bairisch!)

Gruß aus München

Jürgen

OT!!

Klar der Aufruf ist ja auch falsch!

Must Du mal googeln... Geht so:

Delphi-Quellcode:

Var
  Physicalenv : IPhysical;
  Gravi       : TVectoredGravitation;
  MouseEX     : TExtMouseevents;

begin
  Pysicalenv.Queryinterface(IDM_MYWORLD,IID_GRAVITATION,true,Gravi);  // holt sich das Interface
  MouseEx := (Mouse as TExtMouseevents);

  // Bewegung vorbereiten...
  Gravi.Orgin := Vector3d(-10,15,-5); // Import aus DirectX hierbei wird angenommen, dass die Tasse rechts/hinter der Maus steht (alle Angaben in INCH!!!)
  Gravi.strength := 3; // Angaben in N
                                      
  MouseEx.Hand.Ontop := false;
  
  Gravi.Enabled := true; 
  delay(1000);           // sollte eigentlich für alle Mouse funktionieren. Die Bewegung dauert ca. eine Sekunde...
  Gravi.Enabled := false;

  Messagedlg('Ätsch',mtinformation,[mbok]);
  Gravi := NIL;
   
end;

Die genau Position für den 3D Vector könnte ggf. noch über die WebCam ermittelt werden, aber ich habe da nix gefunden...

Frank