unit unit_Test;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, Vcl.Mask, RzEdit, Vcl.ExtCtrls{, RzNumericEditExt}, TypInfo,
  ActnList, Contnrs, dxCore, dxCoreClasses, dxMessages, dxCommon, dxThemeManager,
  cxLookAndFeels, cxLookAndFeelPainters, cxControls, cxContainer, cxClasses,
  cxGraphics, cxStyles, dxFading, cxAccessibility, cxLibraryConsts, dxCustomHint,
  dxScreenTip, VCL.Themes;

type
  TForm2 = class(TForm)
    Button1: TButton;
    edt1: TRzNumericEdit;
    edt2: TRzNumericEdit;
    edt3: TRzNumericEdit;
    edt4: TRzNumericEdit;
    edt5: TRzNumericEdit;
    edt6: TRzNumericEdit;
    pnl1: TPanel;
    edt7: TRzNumericEdit;
    edt8: TRzNumericEdit;
    edt9: TRzNumericEdit;
    edt10: TRzNumericEdit;
    edt11: TRzNumericEdit;
    edt12: TRzNumericEdit;
    edt13: TRzNumericEdit;
    edt14: TRzNumericEdit;
    procedure Button1Click(Sender: TObject);
  private
    fFontColor: TColor;
    procedure WndProc(var Message: TMessage); override;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  I: Integer;
  c: TRzNumericEdit;
begin

  if fFontColor <> clRed then
    fFontColor := clRed
  else
    fFontColor := clGreen;

  for I := 0 to Pred(self.ControlCount) do
  begin

    if self.Controls[I] is TRzNumericEdit then
    begin
      c := self.Controls[I] as TRzNumericEdit;
      c.Enabled := false;
      case fFontCOlor of
        clRed:
          c.Text := 'RED RED RED!';
        clGreen:
          c.Text := 'Green Green Green!';
      end;
    end;
  end;
//  Invalidate;

end;

procedure TForm2.WndProc(var Message: TMessage);

  function FindEditControl(AHandle: HWND): TRzNumericEdit;
  var
    AEditControl: TRzNumericEdit;
    I: Integer;
  begin
    Result := nil;
    for I := 0 to self.ControlCount - 1 do
      if self.Controls[I] is TRzNumericEdit then
      begin
        AEditControl := TRzNumericEdit(self.Controls[I]);
        if AEditControl.HandleAllocated and (AEditControl.Handle = AHandle) then
        begin
          Result := AEditControl;
          Break;
        end;
      end;
  end;

var
  AEditControl: TRzNumericEdit;
begin
  case Message.Msg of
    WM_CTLCOLOREDIT, WM_CTLCOLORSTATIC: //don't use VCL-like method
      begin
        AEditControl := FindEditControl(Message.LParam);
        if AEditControl = nil then
          inherited
        else
        begin
          SetTextColor(Message.WParam, ColorToRGB(fFontColor));
          SetBkColor(Message.WParam, ColorToRGB(clGrayText));
         // SetBkMode(Message.WParam, TRANSPARENT);
          Message.Result := LRESULT(Brush.Handle);
        end;
      end;
  else
    inherited;
  end;
end;