Button Farbe ändern ?

[EWeiss]

Winproc überschreiben..
WinHandle = Handle des Button
wp = DC des Button wird von Windows übergeben.
clRed = Der Button ist dann Rot

Delphi-Quellcode:

var
  brush: HBrush;
case Msg of
  WM_CTLCOLORBTN:
    begin
      Color := clRed;
      SetBkMode(wp, TRANSPARENT);
      SetBkColor(wp, Color);

      if (brush <> 0) then
        DeleteObject(brush);

      brush := CreateSolidBrush(Color);
      SetProp(WinHandle, 'brush', brush);
      Result := brush;
      Exit;
  end;
end;

gruss