Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Moving an object after a form is moved.
I am using one of the msagent charachters. I'd like him to follow the form when the form gets moved.
So I went to the moved event and added code to move him when it fires.
the only problem is, it takes forever. the agent charachter is not just a cursor or an image that can follow along in the blink of an eye. The problem is that the moved event fires at all times while the form is being moved. I need something that will fire after the form has been placed. Is there a way to read the mouse, to see if it is still being held down (left click) while the form is being moved.
thisform.moved
if (left click button has been released)
loAgent = thisform.Agent.Characters(JUSTSTEM(thisform.agent.Comment))
lnLeft=thisform.left+20
lnTop=thisform.top+100
loAgent.moveto(lnLeft,lnTop)
endif
thanks, steve
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement