PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (c:\traff\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 05/28/05 08:17:05 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" currentrec = .F. ADD OBJECT grid1 AS grid WITH ; ColumnCount = 2, ; Height = 200, ; Left = 24, ; Panel = 1, ; Top = 42, ; Width = 320, ; Name = "Grid1", ; Column1.HeaderClassLibrary = "test.prg", ; Column1.HeaderClass = "MyHeader", ; Column1.Width = 126, ; Column1.Name = "Column1", ; Column2.HeaderClassLibrary = "test.prg", ; Column2.HeaderClass = "MyHeader", ; Column2.Width = 144, ; Column2.Name = "Column2" PROCEDURE Load CREATE CURSOR Test (Field1 C(10), Field2 N(5)) ENDPROC PROCEDURE HeaderClick(strControl) WAIT WINDOW strControl ENDPROC ENDDEFINE * *-- EndDefine: form1 ************************************************** DEFINE CLASS MyHeader AS Header PROCEDURE Click thisform.HeaderClick(this.Parent.ControlSource) ENDPROC ENDDEFINE