Cambiar el color de la fuente en campos deshabilitados

[sur-se]

Hola.
Cuando deshabilito un campo edit, este adopta un color de fuente gris y me gustaría poder controlarlo para que dejarlo en negro u otro color.
Tengo un componente hecho heredado de él, y me gustaría poder configurar el campo cuando queda deshabilitado.

Un saludo.

[Neftali [Germán.Estévez]]

TEdit deriva de TControl y TControl tiene el procedimiento SetEnabled de acceso a la propiedad Enabled como virtual, por lo tanto deberías poder sobreescribirlo.

Prueba a sobreescribir este procedimiento (override) en tu componente y cambiar el color de la fuente después de llamar al inherited.

¿Me expliqué bien?

[sur-se]

No funciona eso. Es lo primero que hice, pero no va. Parece que al pintar el componente tiene fijado ese color de fuente.
¿La alternativa parece que pasará por pintar yo el texto dentro del campo y con el color del font correcto?

Un saludo.

[Neftali [Germán.Estévez]]

Empezado por sur-se

¿La alternativa parece que pasará por pintar yo el texto dentro del campo y con el color del font correcto?

Parece el siguiente paso (a mi así de pronto no seme ocurre otro); Puedes probar con alguno de estos:

Código Delphi [-]
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;

Ambos en TWinControl.

[sur-se]

Bueno, pues al final lo he hecho de la forma siguiente:

type 
  TMiEdit = class(TEdit)
...

procedure WMPAINT(var Msg : TMessage); message WM_PAINT;

....

procedure TMiEdit.WMPAINT(var Msg: TMessage);
begin
     inherited;
     if not enabled then Pintar_Texto;
end;

procedure TMiEdit.Pintar_Texto;
var
    DC : HDC;
    Canvas: TCanvas;
    ps: TPaintStruct;
    CallEndPaint: Boolean;
    R:TRect;
begin
    DC := GetWindowDC(Self.Handle);
    R:=ClientRect;
    CallEndPaint := False;
    Canvas:=TCanvas.Create;
    try
      if DC <> 0 then
      begin
        Canvas.Handle := DC;
        ps.fErase := true;
      end
      else
      begin
        BeginPaint(Handle, ps);
        CallEndPaint:= True;
        Canvas.handle := ps.hdc;
      end;
      if ps.fErase then Perform(WM_ERASEBKGND, Canvas.Handle, 0);
      SaveDC(canvas.handle);
      try
        Canvas.Brush.Style := bsClear;
        Canvas.Font := Font;
        Canvas.Font.Color := clBlack;
        Canvas.TextRect(R,3,3,text);
      finally
        RestoreDC(Canvas.Handle, - 1);
      end;
    finally
      if CallEndPaint then
        EndPaint(handle, ps);
      Canvas.Free;
      ReleaseDC(Self.handle,DC);
    end;
end;

Así va bien.
Salu2.