Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to move forms like msn messenger
Message
From
09/05/2003 14:49:39
Fabian Belo
Independent Developer
Argentina
 
 
To
09/05/2003 13:48:53
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00786880
Message ID:
00786903
Views:
12
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform