Color de fuente en Edit !!!

[vpepen]

Hola Foro !!!

Es posible mostrar el color de la fuente de un Edit estando la propiedad enabled := false?

Las gracias anticipadas,

Víctor.-

[delphi.com.ar]

Te recomiendo este hilo: Color de edit inhabilitado

Saludos!

[marcoszorrilla]

No, ponlo sobre un tpanel, lo reduces para que no se note que está sobre dicho componente y luego pones el tpanel disponible a falso, y así el Edit mantendrá el color de fuente que tenga y además parecerá que está no disponible.

Un Saludo.

[roman]

Aunque sigo estando de acuerdo con lo que dije en el hilo que menciona dca, aquí va una manera de presentar el texto de un Edit con la fuente que tenga asignada, es decir, tal como se ve cuando está habilitado:

interface

type
  // Esta declaración debe ir antes de el formulario
  TEdit = class(StdCtrls.TEdit)
  private
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
  end;

  TForm1 = class(TForm)
  end;

implementation

procedure TEdit.WMPaint(var Msg: TWMPaint);
var
  ps: PaintStruct;
  dc: hdc;
  obj: HGdiObj;

begin
  if Enabled then
    inherited
  else
  begin
    dc := BeginPaint(Handle, ps);
    obj := SelectObject(dc, Font.Handle);
    SetTextColor(dc, Font.Color);
    TextOut(dc, 1, 0, PChar(Text), Length(Text));
    SelectObject(dc, obj);
    EndPaint(Handle, ps);

    Msg.Result := 0;
  end;
end;

Esto no pretende ser una clase de GDI y de hecho muestra mi escazo conocimiento en el asunto así que no respondo por su funcionamiento, pero acabo de probarlo y funciona.

// Saludos

[vpepen]

Gracias marcoszorrilla, es fenomenal la alternativa que presentas...

Aunque no he probado la alternativa de roman, trataré de ver si me funciona.


Gracias a todos,


Víctor.-