VFP开发动态创建组件

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

然后在Grid动态加入前调用SET LIBRARY TO

SET LIBRARY TO class_taximeter_textbox_prg.prg

Grid1.Column1.RemoveObject('Text1')

Grid1.Column1.AddObject('tetTaxiCustom',"CLASS taxiMeter_TextBox")

Grid1.Column1.tetTaxiCustom1.Visible=.T." &&这句一定要记住加，否则不能用的。