Putting this in the MouseMouve of each header works for me:

LPARAMETERS nButton, nShift, nXCoord, nYCoord
local lnI
for lnI = 1 to This.Parent.Parent.ColumnCount
    This.Parent.Parent.Columns(lnI).Header1.ForeColor = rgb(0,0,0)
endfor
This.ForeColor = rgb(200,0,0)

>Hi everybody,
>
>How can I determine, that the current Header is loosing focus? In other words, suppose, I click on the Header on the grid and change its color. When I click on another column header, I want to reset previously current Header color to the original color, and change color of the currently clicked Header?
>
>Do you have an idea, how can I achieve this functionality?
>I tried this.parent.parent.SetAll(..) from the click event of the Header, but it's not exactly, what I want. Besided, I can click on text in another column in a grid, and the header would not change color :(
>
>Thanks a lot in advance for ideas.