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
TButton verschieben mit Mauszeiger
- corpsman
- Lazarusforum e. V.
- Beiträge: 1498
- Registriert: Sa 28. Feb 2009, 08:54
- OS, Lazarus, FPC: Linux Mint Mate, Lazarus GIT Head, FPC 3.0
- CPU-Target: 64Bit
- Wohnort: Stuttgart
- Kontaktdaten:
Re: TBotton verschieben mit mauszeiger
Mache eine Button auf das Formular, und suche im Objectinstpector mal nach der Eigenschaft
OnMouseMove
da nen doppelclick und dann etwas in der Art :
evtl. reicht dir diese "einfache" Variante schon
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
--
Just try it
Just try it
Re: TBotton verschieben mit mauszeiger
Genau das wollte ich ..
Vielen Vielen Dank
klappt.
Vielen Vielen Dank
klappt.
-
- Lazarusforum e. V.
- Beiträge: 7178
- Registriert: So 19. Nov 2006, 12:06
- OS, Lazarus, FPC: Linux Mint 19.3
- CPU-Target: AMD
- Wohnort: Oldenburg(Oldenburg)
Re: TBotton verschieben mit mauszeiger
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.
MFG
Michael Springwald
Michael Springwald
Re: TBotton verschieben mit mauszeiger
Oke danke teste ich mal aus : )