Wie kann ich Objekte zur Laufzeit verschiebe?

[Der_Unwissende]

Zitat von Aurus:

Viele Beispiel gehen über "MouseMove" doch es gibt grafische Objekte die diese Event nicht haben.

Auch ist es mir nicht gelungen die Objekte mit der Maus zu vergrössern / verkleinern.

Kennt Jemand einen "einfachen, guten" der mir die Arbeit abnehmen kann?

Einen "einfachen, guten"? Was genau meinst du denn?

Wenn du Objekte anzeigst, dann erben die ja von TControl und jedes TControl hat die Eigenschaft OnMouseMove. Zum verschieben musst du dann nur auf ein OnMouseDown, OnMouseMove und OnMouseUp reagieren. Vergrößern und verkleinern machst du auf die gleiche Art und Weise, wertest aber noch die Position der Maus (beim OnMouseDown) aus und entscheidest dann z.B. ob auf den Rand geklickt (und vergrößert) wird oder in die Mitte (und verschoben).

Gruß Der Unwissende