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." &&這句一定要記住加，否則不能用的。