>Using MesageBox is OK but you cannot make global class based changes to the instances of messagebox littered around your app. If you use DisplayMessage, you could specify a "%messagekey name" (instead of a literal string) to be found in the app registry where you can specify the look/feel of your message. This way, you can also not only define the type of message/icons etc., but you can also change the message itself without modifying your source code.


Yup, this is why I'm trying using CM messages methods. I did the "%" thing now (thanks), but still have some problems. I set my msgXYZ in the app registry, and for a test tried with different icons and buttons. I'm trying this in the FieldValid of the Rule class, which is already in my CDE. It works fine if I just use the OK button or if the OK button is the default. Otherwise I get the error that follows. The icons won't change either. Is it something to do with the DisplayMessage of the Rule class ?
One bit more ... when I have OK/Cancel buttons, whats the return value to identify which was pressed ? Tried to find this the manual, but didn't.

Thanks a lot.

Visual FoxPro 07.00.0000.9465 for Windows [Jan  4 2002 02:58:33] Product ID 55181-015-6393293-03620
CodeMine 7.0
Error #230 in Init line 100
"THIS.aButtons[m.nButton].TabIndex = m.ix"
Array dimensions are invalid.

Chamada na pilha
13 Frmconfirm.Init (..\..\codemine\common50\cmdialog.vct)
12 Createnewobject (..\..\codemine\common50\codemine.fxp)
11 Cmmessage.Displaylastmessage (..\..\codemine\common50\cmmsgman.vct)
10 Cmmessage.Dialog (..\..\codemine\common50\cmmsgman.vct)
9 Cdeprodutos.Cmrulecustom1.Displaymessage (..\..\codemine\common50\cmdataa.vct)
8 Cdeprodutos.Cmrulecustom1.Fieldvalid (source\appdata.vct)
7 Cdeprodutos.Didco530._executerule (..\..\codemine\common50\cmdata.vct)
6 Cdeprodutos.Didco530.Replace (..\..\codemine\common50\cmdata.vct)
5 Formfrmprodutos001.Cmdatamanager.Replace (..\..\codemine\common50\cmdataa.vct)
4 Formfrmprodutos001.Cmbindingmanager.Storevalue (..\..\codemine\common50\cmdata.vct)
3 Formfrmprodutos001.Txtf530fl.Storevalue (..\..\codemine\common50\codemine.vct)
2 Formfrmprodutos001.Cmbindingmanager.Valid (..\..\codemine\common50\cmdata.vct)
1 Formfrmprodutos001.Txtf530fl.Valid (..\..\codemine\common50\codemine.vct)