Control eigenes BorderColor verwenden

[Metal_Snake2]

Hi,


wie kann ich mein eigenes Bordercolor für ein control setzen? Dabei möchte ich nicht den ganzen Systemcolor wert umändern,
sondern nur für das eine control meinen eigenen farbwert setzen.

kann mir da einer weiterhelfen?

Ich muss sicherlich einpaar nachrichten abfangen? Beispiel- code wäre optimal.


danke im voraus!!

[cruiser]

ein eigenes Control ableiten und Paint bzw. DoPaint überschreiben

[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!