An TE, es wäre generell immer hilfreich etwas Code von sich zu zeigen damit jeder sehen kann wie Du vorgehst um da etwas starthilfe leisten zu können.
So gebe ich Dir ein simples Beispiel, da ich Dein Code nicht kenne wird vieles anders sein als wie bei Dir.
Delphi-Quellcode:
TForm1 =
class(TForm)
ScrollBar1: TScrollBar;
// <- auf das bezieht es sich
protected
procedure WMCtlColorScrollbar(
var Message: TWMCtlColorScrollbar);
message WM_CTLCOLORSCROLLBAR;
end;
procedure TForm1.WMCtlColorScrollbar(
var Message: TWMCtlColorScrollbar);
begin
if Message.ChildWnd = ScrollBar1.Handle
then
Message.Result := CreateSolidBrush(
RGB(255, 255, 0));
// <- hier die Farbe
end;
Es entsteht ein Speicherleck da ich nirgendwo das Create wieder freigebe das dient nur als Beispiel wie man Farbe ändert.