Detectar evento cambio de foco

[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

[pborges36]

el procedimiento AplicarColor lo tengo implementeado de la siguiente manera:

Código Delphi [-]
Procedure TBRGFocusAdmin.AplicarColor(colorf:TColor;Componente:TComponent);
begin
    try
      if (Componente is TEdit) then
        begin
            (Componente as TEdit).Color:=colorf;
        end;
      if (Componente is TComboBox) then
        begin
            (Componente as TComboBox).Color:=colorf;
        end;
      if (Componente is TDateTimePicker) then
        begin
            (Componente as TDateTimePicker).Color:=colorf;
        end;
      if (Componente is TMemo) then
        begin
            (Componente as TMemo).Color:=colorf;
        end;
      (Componente as TWinControl).Repaint;
    except
    end;
end;

Creo que solo faltaria agregar la clase del componente que estas usando.
algo como:

Código Delphi [-]
if (Componente is TDBEdit) then
        begin
            (Componente as TDBEdit).Color:=colorf;
        end;

Saludos.

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

Empezado por pborges36

el procedimiento AplicarColor lo tengo implementeado de la siguiente manera

Si quieres simplificar este procedimiento y además evitar que falle para tipos que no tengas añadidos en el IF (es decir, que funcione para todos) puedes utilizar RTTI. Revisa este truquillo, ahí se explica cómo hacerlo.

De esta foprma con algo así te vadría para cuelquier control que derive de TComponent:

Código Delphi [-]
  SetPropAsString(Componente, 'Color', 'colorf');

[[oscarac]]

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

[[oscarac]]

Empezado por pborges36

el procedimiento AplicarColor lo tengo implementeado de la siguiente manera:

Código Delphi [-]
Procedure TBRGFocusAdmin.AplicarColor(colorf:TColor;Componente:TComponent);
begin
    try
      if (Componente is TEdit) then
        begin
            (Componente as TEdit).Color:=colorf;
        end;
      if (Componente is TComboBox) then
        begin
            (Componente as TComboBox).Color:=colorf;
        end;
      if (Componente is TDateTimePicker) then
        begin
            (Componente as TDateTimePicker).Color:=colorf;
        end;
      if (Componente is TMemo) then
        begin
            (Componente as TMemo).Color:=colorf;
        end;
      (Componente as TWinControl).Repaint;
    except
    end;
end;

Creo que solo faltaria agregar la clase del componente que estas usando.
algo como:

Código Delphi [-]
if (Componente is TDBEdit) then
        begin
            (Componente as TDBEdit).Color:=colorf;
        end;

Saludos.

erro mio me falto agregar la unidad DbCtrls...
espero q a alguien le sirva

[pborges36]

Buena oscarac.
Saludos.