Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How can i prevent users to move forms out of the screen
Message
 
 
À
05/10/2003 13:45:51
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00835229
Message ID:
00835232
Vues:
10
>what about the right edge and the bottom edge of the screen ?
Something like
IF Thisform.Top + Thisform.Height > _screen.Height
	Thisform.Top = _screen.Height - Thisform.Height - ;
					SYSMETRIC(9) - 2*SYSMETRIC(4)
ENDIF	

IF Thisform.Left + Thisform.Width > _screen.Width
	Thisform.Left = _screen.Width - Thisform.Width - ;
					2 * SYSMETRIC(3)

ENDIF	
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform