Detectar evento cambio de foco

[pborges36]

Gracias Neftali, sigo buscando y nada todavia, por el momento cada componente cambia el color a si mismo cuando recibe o pierde el foco. Pero creo que lo ideal seria un solo componente que administre todo eso. En fin, seguire buscando. Saludos.

[oscarnoe]

Hola pborges36,

recorde haber visto algo similar, y puede que este link te ayude, no es un componente, pero creo que te servira de guia para hacer uno:

http://delphi.about.com/od/vclusing/...ingfocused.htm

La solucion para por usar Tscreen y la RTTI.

Espero que te sea de ayuda...

Oscar Noe

[pborges36]

gracias Oscrnoe, lo voy a revisar y de paso practico mi ingles que esta un poco abandonado. jeje. Cualquier novedad te aviso y Gracias de nuevo.

[[Crandel]]

oscarnoe te paso el link justo, te estaba a punto de recomendar justamente la primera opcion del articulo.

Pero en el articulo te da una exelente solucion que es justo lo que necesitas.

despues nos mostras como te quedo el componente

[pborges36]

Hola a todos. Quiero agradecerles enormemente porque finalmente, Con la ayuda de Uds. porsupuesto, termine el componente que me propuse. Y aqui les dejo el codigo, espero su opinion, comentarios y sugerencias para que vayamos mejorandolo. Gracias.

Código Delphi [-]
unit BRGFocusAdmin;
interface
uses
  SysUtils, Classes, Graphics, StdCtrls, ComCtrls, Controls, Forms;
type
  TBRGFocusAdmin = class(TComponent)
  private
    { Private declarations }
    FColorconFoco:TColor;
    FColorsinFoco:TColor;
    FTomaFoco, FPierdeFoco, FTieneFoco:TComponent;
    procedure ScreenActiveControlChange(Sender : TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
    Procedure AplicarColor(colorf:TColor;Componente:TComponent);
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property Tag2:integer read FTag2 write FTag2;
    property TagStr:string read FTagStr write FTagStr;
    property ColorconFoco:TColor read FColorconFoco write FColorconFoco;
    property ColorsinFoco:TColor read FColorsinFoco write FColorsinFoco;    
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('BRG', [TBRGFocusAdmin]);
end;
destructor TBRGFocusAdmin.Destroy;
begin
    Screen.OnActiveControlChange := nil;
    inherited;
end;
procedure TBRGFocusAdmin.ScreenActiveControlChange(Sender: TObject);
begin
    if Screen.ActiveControl<>nil then
      begin
          Fpierdefoco:=FTieneFoco;
          FtieneFoco:=Screen.ActiveControl;
          if Fpierdefoco<>nil then
            self.AplicarColor(FColorsinFoco, FPierdeFoco);
          if FTieneFoco<>nil then
            self.AplicarColor(FColorconFoco, FTieneFoco);
      end;
end;
constructor TBRGFocusAdmin.Create(AOwner : TComponent);
begin
    Screen.OnActiveControlChange := ScreenActiveControlChange;
    inherited Create(AOwner);
end;
Procedure TBRGFocusAdmin.AplicarColor(colorf:TColor;Componente:TComponent);
begin
    try
      if (Componente is TEdit) then
        (Componente as TEdit).Color:=colorf;
      if (Componente is TComboBox) then
        (Componente as TComboBox).Color:=colorf;
      if (Componente is TDateTimePicker) then
        (Componente as TDateTimePicker).Color:=colorf;
      if (Componente is TMemo) then
        (Componente as TMemo).Color:=colorf;
      (Componente as TWinControl).Repaint;
    except
    end;
end;
end.

Solo tienen que soltarlo sobre su formulario principal y listo!!

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

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

Empezado por pborges36

...espero su opinion, comentarios y sugerencias para que vayamos mejorandolo.

Código Delphi [-]
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;

Creo que esto se puede optimizar (para cualquier componente que tenga esa propiedad) utilizando RTTI. Lo bueno de esto es que generalizando un poco la siguiente función se puede hacer para cualquier propiedad.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;

  //·······················································································
  // Comprueba si existe una propiedad con ese nombre
  function ExistProp(Instance: TObject; const PropName: string):Boolean;
  var
    PropInfo: PPropInfo;
  begin
    // Busca la propiedad y deviuelve la estructura nil
    PropInfo := GetPropInfo(Instance, PropName);
    Result := not (PropInfo = nil);
  end;
  //·······················································································
  // Cambia el valor de la propiedad
  function SetPropAsString(AObj: TObject; const PropName, Value: String):Boolean;
  var
    PInfo: PPropInfo;
  Begin
    // Intentamos acceder (con un puntero) a la info. de la propiedad
    PInfo := GetPropInfo(AObj.ClassInfo, PropName);
    Result := PInfo <> nil;

    // Se ha obtenido la información...
    if (Result) then begin
      // Se ha encontrado la propiedad con éste nombre; Chequear el tipo...
      if (PInfo^.Proptype^.Kind = tkString) or
         (PInfo^.Proptype^.Kind = tkLString) then begin
        // Asignar el valor de tipo String
        SetStrProp(AObj, PInfo, Value);
      end
      else if (PInfo^.Proptype^.Kind = tkInteger) then begin
        // Asignar el valor...
        if (PInfo^.PropType^.Name = 'TColor') then begin
          SetOrdProp(AObj, PInfo, StringToColor(Value));
        end
        else begin
          SetOrdProp(AObj, PInfo, StrToInt(Value));
        end;
      end
      else begin
        Result := False;
        MessageDlg('''La propiedad '' + PropName + '' no es de tipo String (o un tipo implementado)', mtWarning, [mbOK], 0);
      end;
    end
    else begin
      // No se ha encontrado la propiedad con ese nombre
      Result := False;
    end;
  end;
  //·······················································································


begin
  // recorrer los componentes
  for i := 0 to (Self.ComponentCount - 1) do begin
    // existe esa propiedad
    if ExistProp(Self.Components[i], 'Color') then begin
      // Asignar valor
      SetPropAsString(Self.Components[i], 'Color', 'clInfoBk');
    end;
  end;
end;

[[Crandel]]

Empezado por Neftali

Creo que esto se puede optimizar (para cualquier componente que tenga esa propiedad) utilizando RTTI. Lo bueno de esto es que generalizando un poco la siguiente función se puede hacer para cualquier propiedad.

Ya lo habia probado, el tema que no todos los componentes quedan lindos cuando se les cambia la propiedad color (como el TListBox).

Este es el codigo que use:

Código Delphi [-]
  if not (csDesigning in Self.ComponentState) then
    if Sender <> nil then
       if IsPublishedProp(Sender,'Color') then
         SetOrdProp(Sender,'Color', Color) ;