1。VFP动态添加VFP自己的控件的代码如下
thisform.AddObject("textBox1","TextBox")
Thisform.textBox.visible=.T.
非常简单
2。如果在Grid中更改列中的编辑控件的代码如下:
Grid1.Column1.RemoveObject('Text1')
Grid1.Column1.AddObject('Check1',"CheckBox")
Grid1.Column1.Check1.Visible=.T." &&这句一定要记住加,否则不能用的。
3。如果在Grid中加入自定义组件:
Vcx类库中加入的自定义类控件,现在未知道知何直接添加,但可通过prg编写类库来加载。如我要在动态添加的Grid控件中的Valid事件都调用CalColumnSingle.Prg
代码如下:
**------先定义一下自定义组件,组件文件名为:class_taximeter_textbox_prg.prg,改写Valid()事件
DEFINE CLASS taxiMeter_TextBox AS TextBox
FUNCTION Valid()
CalColumnSingle()
ENDFUNC
ENDDEFINE
然后在G