Код с учетом изменения размеров столбцов и прочих кликов
на clicked:
long i5,i4
int i_x,i_y
string s_name

szColumnClicked=''
szColumnClicked_x=''
szColumnClicked_width=''

if row>0 then return

if dwo.name="datawindow" then return

s_name=dwo.name

if This.Describe(s_name + ".Band") <> "header" Then return

i_y=this.pointery()
if integer(this.describe("DataWindow.header.height"))<i_y then return

i_x=integer(this.describe(dwo.name+".x"))

// проверяем является ли объект заголовком колонки
i5=long(this.Object.DataWindow.Column.Count)
for i4=1 to i5
if integer(this.describe("#"+string(i4)+".x"))=i_x then
szColumnClicked=this.describe("#"+string(i4)+".name")
exit
end if
next

// столбец не найден
if szColumnClicked="" then return

szColumnClicked_x=this.describe(szColumnClicked+".x")
szColumnClicked_width=this.describe(szColumnClicked+".width")
return

на lbuttonup:
if szColumnClicked<>'' then
this.post event ue_sort_on_click()
end if

Event ue_sort_on_click:
string s_oldsort,s_sort

// сохраняем настройки сортировки
s_oldsort=this.describe("datawindow.table.sort")
if s_oldsort="?" or s_oldsort="!" then
s_oldsort=""
end if

if szColumnClicked="" then return

// проверяем на изменение ширины столбца
if szColumnClicked_width<>this.describe(szColumnClicked+".width") then return

if szColumnClicked_x<>this.describe(szColumnClicked+".x") then return

s_sort=szColumnClicked
if s_sort<>"" then
if pos(s_oldsort,s_sort)>0 then
if pos(s_oldsort,s_sort+' A')>0 then
s_sort+=" D"
elseif pos(s_oldsort,s_sort+' D')>0 then
s_sort=szSortBeforClick
else
s_sort+=" A"
end if
else
s_sort+=" A"
end if
if this.setsort(s_sort)=-1 then
this.setsort(szSortBeforClick)
return
end if
this.sort()
end if
return