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:
01180166
Views:
13
>>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
>
Hello Fabio,

Wow, thank you! It is not universal, but it is absolutely enough for my case. I would have never thought that ON POPUP will still work in a combo...

Bye

Alexander
Alexander Lerner
a_lerner@heinrich-schmid.de

The life is somewhat easier than it seems to be.
Previous
Reply
Map
View

Click here to load this message in the networking platform