Force DROPDOWN in Combo

[sridhar412]

Without using supercombo

How can i force the dropdown of combobox?

Sridhar

 

[torturedmind]

in the "when" even of the combobox, type

keyboard '{ALT+DNARROW}'

torturedmind

"It is much better to ask shallow questions than to wander in the depths of ignorance..."

 

[sridhar412]

Thanks.

 

[cslawtom]

Use KEYBOARD "{F4}" is better if you have to run in non-English environment.

 

[sridhar412]

Ok. i got it.

But how to define a method in a dynamically created object(combo)?

Sridhar

 

[Mike Gagnon]

sridhar412

But how to define a method in a dynamically created object(combo)?

Define your combo object and add the "GotFocus" method. You can try the following in a small prg.

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "FORM1"
	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 60, ;
		Top = 60, ;
		Width = 100, ;
		Name = "Text1"
	ADD OBJECT text2 AS textbox WITH ;
		Height = 23, ;
		Left = 216, ;
		Top = 48, ;
		Width = 100, ;
		Name = "Text2"
        ADD OBJECT combo1 AS combobox WITH ;
		RowSourceType = 1, ;
		RowSource = "1,2,3,4,5,6,7,8", ;
		Height = 24, ;
		Left = 144, ;
		Top = 132, ;
		Width = 100, ;
		Name = "Combo1"
        PROCEDURE combo1.GotFocus
		KEYBOARD "{F4}"
	ENDPROC
ENDDEFINE

Mike Gagnon