TButton verschieben mit Mauszeiger

[Airmetz]

Hallo Liebe/r Leser/in,
Ich bin ein absoluter Anfänger : )
Ich will ein kleines Programm schreiben und
würde gerne wissen, wie man den TButton dazu bringt,
das er "weg läuft" vom Mauszeiger,
so das es unmöglich ist diesen TButton zu betätigen.


Hoffe mir wird schnell geholfen,
Vielen Dank schon mal .
Liebe Grüße

[corpsman]

Mache eine Button auf das Formular, und suche im Objectinstpector mal nach der Eigenschaft

OnMouseMove

da nen doppelclick und dann etwas in der Art :

Code: Alles auswählen

Button1.left := random( form1.width - Button1.width);
button1.top := random(form1.height - Button1.height);

evtl. reicht dir diese "einfache" Variante schon

[Airmetz]

Genau das wollte ich ..
Vielen Vielen Dank
klappt.

[pluto]

Vielleicht noch eine kleine Zeitschleife einbauen. Damit der Button nicht immer in der gleichen Geschwindigkeit weg läuft. Außerdem kann es vorkommen, dass der Button trotzdem in die Richtung vom Mauszeiger Springt. Du solltest die letzten Position Speichern und in einer Schleife neue suchen. So das du die Alten Werte nutzt.

[Airmetz]

Oke danke teste ich mal aus : )