Hi,
hab dieses Beispiel aus einer ComboBox:
Delphi-Quellcode:
inherited WndProc(Message);
if Message.Msg = WM_CTLCOLORLISTBOX then
begin
SetBkColor(Message.wParam, ColorToRGB(Color));
Message.Result := CreateSolidBrush(ColorToRGB(Color));
end;
und Dieses direkt von TCustomCombo:
Delphi-Quellcode:
with Message do
case Msg of
WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
begin
SetTextColor(WParam, ColorToRGB(Font.Color));
SetBkColor(WParam, ColorToRGB(Brush.Color));
Result := Brush.Handle;
Exit;
end;
end;
inherited WndProc(Message);
Könnten funktionieren,
hab' sie aber nicht ausprobiert !
[edit/:]
bin mir nicht sicher obs im TfrmMain.WndProc funktioniert, da das die WinProc-Methode von
(vermute ich mal) TForm ist.
Ansonsten muss wohl ein Abgeleteter Button her
[/edit]
Viel Glück!