Déplacer les boutons en temp reel Windev

Déplacer les boutons en Temp réel Windev


Déclaration globale

 V_X , V_Y est un réel  
 V est un booléen=0  
 btn_encour est une chaîne  

Fenêtre Survol

 V_X=SourisPosX()  
 V_Y=SourisPosY()  

Procédure

 //www.courswindev.blogspot.com/
PROCEDURE Deplacer()  
 TANTQUE V  
      Multitâche(-2)  
      {btn_encour,indChamp}..X=V_X  
      {btn_encour,indChamp}..Y=V_Y  
 FIN  

Clic sur le Bouton

 SI V ALORS  
      V=Faux  
      ThreadArrête("TH")  
 SINON  
      V=Vrai  
      btn_encour=MoiMême..Nom  
      ThreadExécute("TH",threadNormal,Deplacer)  
 FIN