Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combobox: How to detect the hihghlighted Item?
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01179918
Message ID:
01180160
Views:
20
>Hello,
>
>I need some way to react to highlighting of items in a dropped-down combobox as the mouse moves over the items - to put it short, the customer wants sort of item-specific tooltip to be shown when the item in a dropped down combobox is highlighted.
>
>I couldn't find any firing events or anything of the kind... Thanks for any ideas...

with a popup
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show

DEFINE CLASS form1 AS form

	ADD OBJECT combo1 AS combobox WITH ;
		Height = 30, ;
		Left = 21, ;
		Top = 21, ;
		Width = 107, ;
		Name = "Combo1"


	PROCEDURE activateitem
		LPARAMETERS ItemIndex,ItemText
		WAIT WINDOW "Item:"+TRANSFORM(m.ItemIndex)+CHR(13)+"Text: "+m.ItemText NOWAIT
	ENDPROC


	PROCEDURE combo1.Init
		DEFINE POPUP comboitems RELATIVE

		DEFINE BAR 1 OF comboitems PROMPT "Text1"

		DEFINE BAR 2 OF comboitems PROMPT "Text2"

		DEFINE BAR 3 OF comboitems PROMPT "Text3"

		DEFINE BAR 4 OF comboitems PROMPT "Text4"

		DEFINE BAR 5 OF comboitems PROMPT "Text5"

		ON POPUP comboitems _SCREEN.ActiveForm.ActivateItem(BAR(),PROMPT())

		this.RowSource = "comboitems"

		this.RowSourceType = 9
	ENDPROC


	PROCEDURE combo1.Destroy
		RELEASE POPUP comboitems 
	ENDPROC


ENDDEFINE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform