Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#5

AW: TImage in Runtime mit Maus verschieben

  Alt 11. Apr 2014, 20:04
Sein Code ist für den Anfang erstmal eine einfache Minimalversion zum Testen.
Die müsste dann noch etwas ausgebaut werden.

OnMouseDown des Images: hier rien der Code von ImageMouseDown
OnMouseMove des Images: hier rein der Code von ImageMouseMove

Und zusätzlich nich, denn OnMouseMove arbeites ja immer, egal ob man gedrückt hat, oder nicht.

Entweder im OnMouseMove abfragen, ob die Maustaste gedrückt ist und nur dann den Code ausführen.

Oder im OnMouseDown eine Variable auf True setzen, im OnMouseUp wieder auf False und im OnMouseMove den Code nur ausführen, wenn die Variable True ist.



Es gibt sehr viele mögliche Exceptions, da kann es nie schaden, wenn man etwas genauer wird.
PS: Mit Strg+C kann man direkt aus den Fehlerdialogen die Texte kopieren, genauso wie aus dem Compiler-/Debuggerlog.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (11. Apr 2014 um 20:08 Uhr)
  Mit Zitat antworten Zitat