Foros Club Delphi - Color de fuente en Edit !!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Color de fuente en Edit !!! (https://www.clubdelphi.com/foros/showthread.php?t=5788)

Color de fuente en Edit !!!

Hola Foro !!!

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

Las gracias anticipadas,

Víctor.-

Te recomiendo este hilo: Color de edit inhabilitado

Saludos!

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.

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:

Código:

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

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.-