Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Moving an object after a form is moved.
Message
De
11/09/2002 14:36:47
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Moving an object after a form is moved.
Divers
Thread ID:
00699457
Message ID:
00699457
Vues:
67
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
Fil
Voir

Click here to load this message in the networking platform