Foros Club Delphi - Un componente sencillísimo

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

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

- - Un componente sencillísimo (https://www.clubdelphi.com/foros/showthread.php?t=9324)

Un componente sencillísimo

Hola a todos soy nuevo en este foro, aunque ya hace varios dias que lo frecuento, pero no había participado, sólo leído los mensajes publicados.

Debo decir que soy un programador de VFP 7 que viendo las bondades de Linux y Kylix desea incursionar en ellos. He leído varios manuales de diseño de componentes pero no encuentro lo que necesito, espero que me ayuden.

Cuando yo programo en VFP tengo diseñado una clase (en Delphi se llaman componentes) basada en el textbox que simplemente cambia de color blanco a amarillo cuando recibe el foco (evento OnEnter) y de amarillo a blanco nuevamente cuando pierde el foco (evento OnExit).

Eso es lo que por ahora me trasnocha. Gracias por todo

JOHN W. VILORIA AMARIS.

Pues está la componente TEdit que tiene los mismos eventos que mencionas, OnEnter y OnExit.

// Saludos

Gracias por tu respuesta Roman, pero creo que no me entendiste, lo que deseo es ver un ejemplo de un componente basado en el Tedit que cuando reciba el foco cambie de color y cuando pierda el foco recupere el color inicial, esto con el fin de que el usuario sepa en todo momento cual es el cuadro de texto activo.

JOHN W. VILORIA A.

Sí entendí que deseas eso. Lo puedes hacer con el mismo que ya está cambiando los colores en los eventos que te menciono.

Ahora, sí quieres hacer un descendiente de TEdit que ya tenga tal comportamiento entonces tienes que redefinir sus métodos DoEnter y DoExit cambiando en ellos los colores.

// Saludos

Aprovechando que no están mis papás aquí te mando un ejemplo completito:

Código:

unit FocusEdit;



interface



uses

  SysUtils, Classes, Controls, StdCtrls, Graphics;



type

  TFocusEdit = class(TEdit)

  private

    FFocusColor: TColor;

    FNormalColor: TColor;



    procedure SetFocusColor(const Value: TColor);



  protected

    procedure DoEnter; override;

    procedure DoExit; override;



  public

    constructor Create(AOwner: TComponent); override;



  published

    property FocusColor: TColor read FFocusColor write SetFocusColor default clInfoBk;

  end;



procedure Register;



implementation



procedure Register;

begin

  RegisterComponents('ClubDelphi', [TFocusEdit]);

end;



{ TFocusEdit }



constructor TFocusEdit.Create(AOwner: TComponent);

begin

  inherited;

  FFocusColor := clInfoBk;

end;



procedure TFocusEdit.DoEnter;

begin

  inherited;



  FNormalColor := Color;

  Color := FFocusColor;

end;



procedure  TFocusEdit.DoExit;

begin

  inherited;

  Color := FNormalColor;

end;



procedure TFocusEdit.SetFocusColor(const Value: TColor);

begin

  if FFocusColor <> Value then

  begin

    FFocusColor := Value;

    if Self.Focused then

    begin

      FNormalColor := Color;

      Color := FFocusColor;

    end;

  end;

end;



end.

La componente TFocusEdit agrega la propiedad FocusColor donde le pones el color que desees cuando tome el foco (por defecto clBkInfo = amarillo pálido). Sólo colocas una de éstas en el formulario y ¡listo! el control toma el color de FocusControl cuando gana el foco y recupera el color normal (propiedad Color heredada) cuando lo pierde.

// Saludos

Gracias, lo voy a probar y te cuento como me fue