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