Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Objekte bewegen

    Delphi
    by -remit-, 7. Okt 2009
  Ah Ok, darin liegt das Problem danke!
  
  Edit: Das ganze lässt sich damit umgehen:
  
  procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
  sleep(1);
  if (Shift = ) and (x <> lastpx) then
  begin
• Forum: Multimedia

  Re: Objekte bewegen

    Delphi
    by -remit-, 7. Okt 2009
  Mein Problem ist, dass das ganze nicht funktioniert ;-) Wenn ich jetzt auf das Panel klicke und die Maus nur 1 pixel bewege, egal ob nach links oder nach rechts, saust der Button mit einem hohen Tempo nach links von der Form runter, das gute Stück verschiebt sich nicht um 1 pixel sondern um undendlich viele...
  
  Edit @Medium: In meinem Anfangspost steht doch nur in x-Richtung und auch, dass der...
• Forum: Multimedia

  Re: Objekte bewegen

    Delphi
    by -remit-, 7. Okt 2009
  Wenn die Maus 1 pixel nach rechts bewegt wird, soll der Button auch 1 pixel nach rechts verschoben werden, genau das gleiche in die linke Richtung. Der Button soll nicht auf der gleichen Position sein wie die Mausposition, sondern davon unabhängig.
  
  
  PS: Das OnMouseMove Event wird ja jedes mal ausgelöst wenn die Maus bewegt wird. Jedes nach links/rechts Bewegen soll eine links/rechts Bewegung...
• Forum: Multimedia

  Objekte bewegen

    Delphi
    by -remit-, 7. Okt 2009
  Huhu,
  
  ich möchte gerne ein Objekt (zur Zeit ist es ein einfacher Button, später soll es ein Image werden) bewegen. Zuersteinmal geschieht dies nur in x-Richtung. Mehr brauche ich glaube ich nicht sagen, der Quelltext macht deutlich was ich möchte:
  
  procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
  if Shift = then
  begin
  if...