Button Farbe ändern ?

[Cookienation]

Zitat von himitsu:

Oder man schaltet das Theming für diese Button-Instanz aus, dann wird der Button im schönen "alten" Win9x-Style gezeichnet, wo der Button noch auf die Color hört.

Wie genau geht das ? :S

[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

[Cookienation]

Zitat von 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

Ich hätte eventuell erwähnen sollen, dass ich ein noch ein Anfänger bin.
Also erstmal ein paar Fragen:

1. Wo soll ich den Code bitte einfügen
2. Ich hab den Code mal ins FormCreate eingefügt. Es gab lauter Errors.
3. Was ist msg

[EWeiss]

Zitat:

Ich hätte eventuell erwähnen sollen, dass ich ein noch ein Anfänger bin.

Macht ja nix

Such doch einfach mal im Forum wie man eine Winproc überschreibt.
Einfach einfügen geht so nicht.

gruss