Maus bewegen

[inherited]

dann halt so

Delphi-Quellcode:

  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
      ShowMessage('You can''t get away! And then there will be cake');
      exit;
    end;
    if not TakeObjectUnderFeet(CurrentPos) then
      ShowMessage('You should really visit a doc!');
      exit;
    end;
  end;
  MoveHandToPosition(Point(X, Y));