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-boun...@leafe.com> Im Auftrag von Joe Yoder
Gesendet: Dienstag, 18. Juni 2024 02:33
An: profoxt...@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]
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: https://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: https://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: https://leafe.com/archives
This message:
https://leafe.com/archives/byMID/0d3001dac163$c9489070$5bd9b150$@wondzinski.de
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
