Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to move forms like msn messenger
Message
De
09/05/2003 14:49:39
Fabian Belo
Independent Developer
Argentine
 
 
À
09/05/2003 13:48:53
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00786880
Message ID:
00786903
Vues:
10
>when receiving a new message from msn messenger, a little increasable form appear on the right bottom side. how can i do this ?

I would suggest by using Top & Left properties. Something like:
oForm = CREATEOBJECT("Form")
pLeft = sysmetric(1)-135
WITH oForm
	.Name = [Test]
	.Caption = [Alert]
	.AlwaysOnTop = .t.
	.WindowState = 0
	.Left = pLeft
	.MinButton = .f.
	.MaxButton = .f.
	.Height = 100
	.Width = 130
ENDWITH

pTop = sysmetric(2)

FOR nCo = 1 to 300
	pTop = pTop-1
		oForm.Top = pTop
		oForm.Show(0)
	ENDWITH
ENDFOR
WAIT
oForm.release()
oForm = .NULL.
"Since I've read that alcohol is bad... I quit reading."
Me


http://www.fabianbelo.com.ar
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform