An example using CommandGroup.Value ...
modify command cmgValue
<paste code below>
do cmgValue
local o
o = CreateObject('frmValue')
o.Show(1)
* ======================================
define class frmValue as Form
add object cmgValue as cmgValue
enddefine
* ======================================
* ======================================
define class cmgValue as CommandGroup
ButtonCount = 9
* -------------------------------
procedure Init as Boolean
store 0 to this.Top, this.Left
this.Width = this.Parent.Width
this.Height = this.Parent.Height
* -------------------------------
procedure Click as Boolean
MessageBox(Textmerge([Button # <<m.this.Value>> was clicked!]))
do case
case m.this.Value = 1
case m.this.Value = 2
* ...
case m.this.Value = 9
endcase
endproc
enddefine
* ======================================
Thierry Nivelet
FoxInCloud
Give your VFP app a second life in the cloud
http://foxincloud.com/
Le 12/12/13 07:23, Thierry Nivelet a écrit :
Great,
In fact there's an even more simple solution: using CommandGroup.Value
You can use the Value property of a CommandGroup or OptionGroup control to
determine which button in the group triggers an event.
The Value property is set to an integer that indicates which button in the
group caused the event.
CommandGroup.Click() can detect the clicked button from .Value, without
DindEvent().
Thierry Nivelet
FoxinCloud
Give your VFP app a new life in the cloud
http://foxincloud.com/
Le 12 déc. 2013 à 00:33, Rafael Copquin a écrit :
Yes sir!!!
I tested it and it works!
Thanks again
Rafael Copquin
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** 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.
