Detectar evento cambio de foco

[[Crandel]]

Te quedo muy bien. Aprovechando que tengo un poco de tiempo libre (mi mujer y mi hijo no estan por un dia ) te hice unos cuantos retoques, espero que no te moleste.

Agregue colores por defecto, un evento cuando se produce el cambio de foco y reescribi el metodo ScreenActiveControlChange.

Código Delphi [-]
unit BRGFocusAdmin;

interface

uses
  SysUtils, Classes, Graphics, StdCtrls, ComCtrls, Controls, Forms;

type
  TBRGFocusAdmin = class(TComponent)
  private
    { Private declarations }
    FTag: integer;
    FColorConFoco: TColor;
    FColorSinFoco: TColor;
    FPierdeFoco, FTieneFoco: TWinControl; // a partir de WinControl pueden recibir el foco
    FOnFocusChange: TNotifyEvent;
    procedure ScreenActiveControlChange(Sender: TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
    Procedure AplicarColor(Color: TColor; Componente: TWinControl);
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property Tag: integer read FTag write FTag;
    property ColorConFoco: TColor read FColorConFoco write FColorConFoco;
    property ColorSinFoco: TColor read FColorSinFoco write FColorSinFoco;
    property OnFocusChange: TNotifyEvent read FOnFocusChange write FOnFocusChange;
  end;

procedure Register;


implementation


procedure Register;
begin
  RegisterComponents('BRG', [TBRGFocusAdmin]);
end;

constructor TBRGFocusAdmin.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  Screen.OnActiveControlChange := ScreenActiveControlChange;
  FColorConFoco := clSkyBlue;
  FColorSinFoco := clWindow;
end;

destructor TBRGFocusAdmin.Destroy;
begin
  Screen.OnActiveControlChange := nil;
  inherited;
end;

procedure TBRGFocusAdmin.ScreenActiveControlChange(Sender: TObject);
begin
  FPierdeFoco := FTieneFoco;
  FTieneFoco  := Screen.ActiveControl;

  if FPierdeFoco <> nil then
    Self.AplicarColor(FColorSinFoco, FPierdeFoco);

  if FTieneFoco <> nil then
  begin
    self.AplicarColor(FColorconFoco, FTieneFoco);
    FTag := self.Tag;
  end else
    FTag := 0;

  if Assigned(FOnFocusChange) then FOnFocusChange(Self);
end;

Procedure TBRGFocusAdmin.AplicarColor(Color :TColor; Componente: TWinControl);
begin
  try
    if (Componente is TCustomEdit)     then (Componente as TEdit).Color := Color;
    if (Componente is TDateTimePicker) then (Componente as TDateTimePicker).Color:= Color;
    if (Componente is TCustomMemo)     then (Componente as TMemo).Color:= Color;
    if (Componente is TCustomComboBox) then (Componente as TComboBox).Color:= Color;

    (Componente as TWinControl).Repaint;
  except
  end;
end;

end.

[pborges36]

Holas. Lo que hice fue poner la unit que retoco crandel en un dpk y luego instalarlo. Con esto me aparece en la paleta de componentes. De ahi solo lo solte en el formulario pricipal y listo, funciona muy bien.

Saludos.

[jafera]

Gracias, no lo habia entendido.

He creado y compilado el dpk, correcto; lo suelto en el for, correcto pero al hacer F9 el resultado es este:

Project xxx.exe raised exception class EInvalidCast with message 'Invalid class Typecast' Process stoped Press Step or Run to continue.

Alguna pistilla?

Josep

[pborges36]

Empezado por jafera

...Project xxx.exe raised exception class EInvalidCast with message 'Invalid class Typecast' Process stoped Press Step or Run to continue...

Me suena a configuracion de Delphi.
Revisa debugger options, la opcion: stop on delphi exception (o notify on languaje exceptions, depende de la version) debe estar destiltada.

Saludos.

[jafera]

Ok, solucionado el error.

El componente no me funciona del todo bien, explico:

Tengo una aplicacion MDI, coloco el componente en el form principal, lo coloco en un hijo y no cambia nada, pero dentro del hijo tengo un form normal, para busquedas, y allí si funciona.

Puede tener algo que ver el que el form stile sea un MDI Child?

Gracias por adelantado

Saludos

Josep

[pborges36]

Empezado por jafera

...Tengo una aplicacion MDI, coloco el componente en el form principal, lo coloco en un hijo y no cambia nada, pero dentro del hijo tengo un form normal, para busquedas, y allí si funciona.

Puede tener algo que ver el que el form stile sea un MDI Child?...

La verdad no tuve problemas con MDI. Solo una observacion, el componente lo pegue una unica vez en el form principal y funciona para toda la aplicacion.

Saludos.

[jafera]

Buenas de nuevo, creo que el problema viene porque los componentes son DBEdit, si son Edit normales si funciona.

Como declaro esto, pero para un DBEdit?

Código Delphi [-]
if (Componente is TCustomEdit)     then (Componente as TEdit).Color := Color;

Saludos

Josep

[[oscarac]]

me esta saliendo el mismo error
alguien soluciono o probo este componente?