*File MyClass.prg DEFINE CLASS MyHeader AS HEADER CAPTION = "MyHeader" PROCEDURE Click WAIT 'Clicked' *or call a handler on the grid and tell the handler the column *!* this.parent.parent.HeaderClicked(this.parent) ENDPROC &&MyHeader.Click ENDDEFINE &&MyHeader2.Step replace the original HEADER with your header like:
with myForm.myGrid.Colum1 .NEWOBJECT('Header2',"MyHeader","MyClass.prg") *Move the properties needed from old to new header: .Header2.Caption = .Header1.Caption .Header2.FONTBOLD = .Header1.FONTBOLD *and so on *remove old header .REMOVEOBJECT('Header1') *rename new header .Header2.name = 'Header1' * now we have a new header Header1! wait .header1.class endwiththis is tested, I have done it a lot of times to implement sorting.