Control eigenes BorderColor verwenden

[Metal_Snake2]

ich glaub das wäre zuviel aktion?? Ich müßte dan doch EINIGES selber zeichnen??

wie siehts den damit aus:

Delphi-Quellcode:

TVirtualStringTree1 = class(TVirtualStringTree)
private
 fSysColor: COLORREF;
protected
 procedure WM_XXXXXXXXXXXXXXXXX(var msg: TMessage); message WM_XXXXXXXXXXXXXXXXX;

end;

procedure TVirtualStringTree1 .WM_XXXXXXXXXXXXXXXXX(var msg: TMessage)
var
 ToBeSet: Integer;
 NewColor: COLORREF;
begin
 inherited;
 fSysColor := GetSysColor(COLOR_HIGHLIGHT);
 ToBeSet = COLOR_HIGHLIGHT;
 // set the highlight color to be RED
 NewColor := RGB(255,0,0);
 SetSysColor(1, ToBeSet, NewColor);
end;

Wie heißt die nachricht die ich abfangen muss?? "WM_BORDER" gibts leider nicht!