Farbe eines Buttons mit WndProc ändern

[landsc]

Hallo!

Ich hab mal ne Frage. Ich weiß, das Thema wurde schon oft erläutert, nur nicht zu meiner Zufriedenheit.
Ich bin schon lange auf der Suche nach einer Möglichkeit die Farbe eines Button zu ändern.
Ich weiß, daß mit WndProc alles möglich ist und ich möchte auch keine eigene Komponente schreiben, ich
möchte das Problem mit WndProc lösen. Ich war soweit, daß ich die Farbänderung gesehen habe, die aber gleich
durch BtnFace wieder überschrieben wurde. Könnt Ihr mir bitte eine Beispiel posten, wie ich das mit WndProc
lösen kann? Oder ergänzt einfach den untenstehenden Quelltext.
Vielen Dank schonmal im vorraus.

Gruß

landsc

mein Quelltext soweit:

Delphi-Quellcode:

procedure TfrmMain.WndProc(var msg: TMessage);
begin
  inherited WndProc(msg);
  if msg.Msg = WM_CTLCOLORBTN then
  begin
    Button1.Brush.Color := clRed;
    msg.LParam := Button1.Handle;
    msg.WParam := GetDC(Button1.Handle);
    msg.Result := Button1.Brush.Handle;
  end;
end;

[edit=Admin]Delphi-Tags korrigiert. Mfg, Daniel[/edit]

[-homer-]

hi und willkommen in der Delphi-Praxis,

aber: Wieso stellst du die gleiche Frage doppelt???


-homer-

[Daniel]

Ein Thread zu diesem Thema reicht.

Bitte hier weiterdiskutieren:
http://www.delphipraxis.net/internal...ct.php?t=22241

* l o c k e d *