Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Maus bewegen

    Delphi
    by inherited, 14. Jan 2008
  dann halt so
  
  if MoveHandToPosition(Schreibtisch.Objects.FindByName('Mousepad').FindByName('Mouse').Position) < 0 then
  begin
  ShowMessage('You do not have a Mousepad on your desk, go get one!');
  exit;
  end;
  if not TakeObjectUnderHand(CurrentPos) then
  begin
  if MoveFeetToPosition(Schreibtisch.Objects.FindByName('Mousepad').FindByName('Mouse').Position) < 0 then
• Forum: Object-Pascal / Delphi-Language

  Re: Maus bewegen

    Delphi
    by inherited, 14. Jan 2008
  MoveHandToPosition(Schreibtisch.Objects.FindByName('Mouse').Position);
  TakeObjectUnderHand;
  MoveHandToPosition(Point(X,Y));
  
  :mrgreen: