Bitte bitte. Hier kann man sich natürlich noch die Funktionen der Klasse TVirtualTreeColumns zu Hilfe nehmen. Da du ja im OnHeaderMouseMove Event des Trees neu zeichnen möchtest, könntet das dann so aussehen:
Delphi-Quellcode:
procedure TfrmMain.vstHeaderMouseMove(Sender: TVTHeader; Shift: TShiftState; X, Y: Integer);
begin
Sender.Invalidate(Sender.Columns[Sender.Columns.ColumnFromPosition(Point(X, Y))]);
end;
Das nur noch als Ergänzung hierzu. Viel Spaß weiterhin mit dem VST.