Delphi-PRAXiS - Delphi Control eigenes BorderColor verwenden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Control eigenes BorderColor verwenden (https://www.delphipraxis.net/100467-control-eigenes-bordercolor-verwenden.html)

Control eigenes BorderColor verwenden

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

Re: Control eigenes BorderColor verwenden

ein eigenes Control ableiten und Paint bzw. DoPaint überschreiben

Re: Control eigenes BorderColor verwenden

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!