Your function should return the object it created on the form. You will use that return value to set properties on. You can use the AMembers() function to see all the available properties and methods available. I will say my experience with COM objects the properties do not show unless you have already accessed them.

Here is something I had written some time ago testing pageframes in pageframes. I define the form adding a pageframe during the design. In the forms init, I add the second pageframe and an editbox to the pageframe. Then I add a combobox through a function to the first pageframe

Hope this gives you some ideas and directions. Tracy

oTest = CREATEOBJECT("pageframeartifact") oTest.SHOW()

oTest = .NULL. CLEAR CLASS pageframeartifact

DEFINE CLASS pageframeartifact AS FORM

WINDOWTYPE = 1 CAPTION = "Active Page 2 of both pageframes - Pull down quickly"

ADD OBJECT pgf AS PAGEFRAME WITH ; PAGECOUNT = 2, ANCHOR = 5, WIDTH = 450

PROCEDURE INIT THIS.HEIGHT = 250 THIS.WIDTH = 450 THIS.pgf.page2.ADDOBJECT("pgf", "pageframe") THIS.pgf.page2.pgf.HEIGHT = 100 THIS.pgf.page2.pgf.TOP = 116 THIS.pgf.page2.pgf.WIDTH = 450 THIS.pgf.page2.pgf.PAGECOUNT = 2 THIS.pgf.page2.pgf.ANCHOR = 14 THIS.pgf.page2.pgf.VISIBLE = .T. THIS.pgf.page2.pgf.page2.ADDOBJECT("edt", "editbox") THIS.pgf.page2.pgf.page2.edt.TOP = 10 THIS.pgf.page2.pgf.page2.edt.LEFT = 10 THIS.pgf.page2.pgf.page2.edt.WIDTH = THIS.WIDTH - 20 THIS.pgf.page2.pgf.page2.edt.HEIGHT = 60 THIS.pgf.page2.pgf.page2.edt.VISIBLE = .T.

LOCAL cmb cmb = AddComboBox("cmb", this.pgf.Page1) cmb.left = 20 cmb.top = 20

ENDPROC

ENDDEFINE

FUNCTION AddComboBox LPARAMETERS comboboxName, containerClass as Container containerClass.AddObject(comboboxName, "Combobox") containerClass.&comboboxName..Visible = .T. RETURN containerClass.&comboboxName. ENDFUNC

-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Joe Yoder Sent: Tuesday, June 18, 2024 9:56 PM To: profoxtech@leafe.com Subject: Re: Combobox followup

Thanks guys! Now I can name and place Combos at will.

The next thing I would like to do is to update the ComboBox properties from the program calling the creation procedure. My first attempt was This,oComboBox1.rowsourcetype = '1 (value)' but it fails (This can only be used within a method)

i also wish for a way to see all the properties of the created object. I have read that some can only be accessed if a custom class has been defined but I don't understand why that would be the case or how to figure out what should be accessible.

Any help would be appreciated, Joe

On Tue, Jun 18, 2024 at 5:42 AM juergen@wondzinski.de wrote:

You should do it differently:

toForm.AddObject(cName, "ComboBox") With toForm.&cName .AddItem(Item 1") .AddItem("Item 2") .Top = nTop .Left = nLeft .Visible = .T. Endwith

wOOdy

-----Ursprüngliche Nachricht----- Von: ProFox profox-bounces@leafe.com Im Auftrag von Joe Yoder Gesendet: Dienstag, 18. Juni 2024 02:33 An: profoxtech@leafe.com Betreff: Combobox followup

Thanks Eric for the input. I think I have correctly made the changes you suggested but the code fails with "Unknown member oComboBox" Here is the code as I have it now:

• Procedure to add a ComboBox to the form PROCEDURE

AddComboBoxToForm(toForm, nTop, nLeft, cname) LOCAL oComboBox oComboBox = CREATEOBJECT("ComboBox") oComboBox.AddItem("Item 1") oComboBox.AddItem("Item 2") toForm.oComboBox.Top = nTop toForm.oComboBox.Left = nLeft toForm.oComboBox.Visible = .T. toForm.AddObject(cname, "oComboBox")

ENDPROC For some reason I need to go to the archive to get any responses to my post so this will appear as a new thread.

Thanks again, Joe

--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html

---

[excessive quoting removed by server]