(Resolvido) evento em Componente

[Daniel Sanches]

Criei um componente herdado de DBEdit, onde muda-se a cor do DBEdit quando entra e volta ao normal quando sai ...

tudo funcionou certinho, até que:

em 1 DBEdit, coloquei um evento OnExit e o evendo definido no componente deixou de funcionar, ou seja, o OnExit do componente foi sobreposto pelo definido em tempo de design do sistema ...

estou definindo assim o evento no Create do componente assim :

OnEnter:= setFocoEnter;

OnExit:= setFocoExit;

será que estou errando em algo ou não tem jeito mesmo, um evendo sobrepõe o outro ???

abraços !!!

[Jhonas]

será que estou errando em algo ou não tem jeito mesmo, um evendo sobrepõe o outro ???

realmente voce está errando ... poste o código para vermos onde o erro está

abraço

[Daniel Sanches]

da forma que está abaixo, está executando os 2 (setFocoExit e OnExit), porém, o componente parou de funcionar corretamente e não está jogando mais o valor para o campo .. já testei de tudo, nada até agora ... espero uma luz !!!

abraços !!!

unit dsDBEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls, Graphics, Dialogs;

type
  TdsDBEdit = class(TDBEdit)
  private
    { Private declarations }
    fAtivaFoco: Boolean;
    fCorFocado: TColor;
    fCorNaoFocado: TColor;
    fFontFocado: TFont;
    fFontNaoFocado: TFont;
    procedure setFocoEnter(Sender: TObject);
    procedure setFontFocado(Valor: TFont);
    procedure setFocoExit(var Message: TCMExit);   message CM_EXIT;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(AOwner: tcomponent); override;
    destructor destroy; override;
  published
    { Published declarations }
    property dsAtivaFoco: Boolean read fAtivaFoco write fAtivaFoco default True;
    property dsCorFocado: TColor read fCorFocado write fCorFocado;
    property dsFontFocado: TFont read fFontFocado write setFontFocado;
  end;

procedure Register;

implementation

constructor TdsDBEdit.Create(AOwner : TComponent);
begin
        inherited Create(AOwner);
        fAtivaFoco:= True;
        fCorFocado:= $00FF8080;
        fCorNaoFocado:= Self.Color;
        fFontFocado:= TFont.Create;
        fFontFocado.Assign(Font);
        fFontNaoFocado:= TFont.Create;
        fFontNaoFocado.Assign(Font);

        //eventos...
        OnEnter:= setFocoEnter;
end;

destructor TdsDBEdit.Destroy;
begin
        fFontFocado.Free;
        fFontNaoFocado.Free;
        inherited destroy;
end;

procedure TdsDBEdit.setFocoEnter(Sender: TObject);
begin
        if fAtivaFoco = true then
        begin
                fCorNaoFocado:= Color;
                Color:= fCorFocado;
                fFontNaoFocado.Assign(Font);
                Font.Assign(fFontFocado);
        end;
end;

procedure TdsDBEdit.setFocoExit(var Message: TCMExit);
begin
        Color:= fCorNaoFocado;
        Font.Assign(fFontNaoFocado);
        if Assigned(OnExit) then OnExit(Self);
end;

procedure TdsDBEdit.setFontFocado(Valor: TFont);
begin
        fFontFocado.Assign(Valor);
end;

procedure Register;
begin
  RegisterComponents('Daniel', [TdsDBEdit]);
end;

end.

[Jhonas]

da forma que está abaixo, está executando os 2 (setFocoExit e OnExit), porém, o componente parou de funcionar corretamente e não está jogando mais o valor para o campo .. já testei de tudo, nada até agora ... espero uma luz !!!

O seu código está funcionando perfeitamente sem problemas .... desistale o seu componente e instale-o novamente recompilando novamente o código

abraço

[Daniel Sanches]

eu já fiz isso umas 50 vezes acho, mas sem sucesso !!!

[Jhonas]

unit DBEdit1;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls, Graphics, Dialogs;

type
  TdsDBEdit = class(TDBEdit)
  private
    { Private declarations }
    fAtivaFoco: Boolean;
    fCorFocado: TColor;
    fCorNaoFocado: TColor;
    fFontFocado: TFont;
    fFontNaoFocado: TFont;
    procedure setFocoEnter(Sender: TObject);
    procedure setFontFocado(Valor: TFont);
    procedure setFocoExit(var Message: TCMExit);   message CM_EXIT;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(AOwner: tcomponent); override;
    destructor destroy; override;
  published
    { Published declarations }
    property dsAtivaFoco: Boolean read fAtivaFoco write fAtivaFoco default True;
    property dsCorFocado: TColor read fCorFocado write fCorFocado;
    property dsFontFocado: TFont read fFontFocado write setFontFocado;
  end;

procedure Register;

implementation

constructor TdsDBEdit.Create(AOwner : TComponent);
begin
        inherited Create(AOwner);
        fAtivaFoco:= True;
        fCorFocado:= $00FF8080;
        fCorNaoFocado:= Self.Color;
        fFontFocado:= TFont.Create;
        fFontFocado.Assign(Font);
        fFontNaoFocado:= TFont.Create;
        fFontNaoFocado.Assign(Font);

        //eventos...
        OnEnter:= setFocoEnter;
end;

destructor TdsDBEdit.Destroy;
begin
        fFontFocado.Free;
        fFontNaoFocado.Free;
        inherited destroy;
end;

procedure TdsDBEdit.setFocoEnter(Sender: TObject);
begin
        if fAtivaFoco = true then
        begin
                fCorNaoFocado:= Color;
                Color:= fCorFocado;
                fFontNaoFocado.Assign(Font);
                Font.Assign(fFontFocado);
        end;
end;

procedure TdsDBEdit.setFocoExit(var Message: TCMExit);
begin
        Color:= fCorNaoFocado;
        Font.Assign(fFontNaoFocado);
        if Assigned(OnExit) then OnExit(Self);
end;

procedure TdsDBEdit.setFontFocado(Valor: TFont);
begin
        fFontFocado.Assign(Valor);
end;

procedure Register;
begin
  RegisterComponents('Daniel', [TdsDBEdit]);
end;

end.

Veja que a unica diferença para o seu código esta no nome da Unit .. mas aqui esta funcionando certinho

abraço

[Daniel Sanches]

resolvi o problema colocando assim (vi em outro forum):

procedure TdsDBEdit.setFocoExit(var Message: TCMExit);
begin
        inherited;
        Color:= fCorNaoFocado;
        Font.Assign(fFontNaoFocado);
end;

agora, sinceramente, nunca estudei a respeito do inherited... você teria uma explicação básida da sua função e o porque ele resolveu o meu problema assima ???

abrigado !!!

[Jhonas]

agora, sinceramente, nunca estudei a respeito do inherited... você teria uma explicação básida da sua função e o porque ele resolveu o meu problema assima ???

inherited significa Herdar... o inherited faz referencia aos codigos dos componentes herdados.

Use Inherited derivar uma nova classe de um item selecionado no Repositório de Objetos e acrescentar a nova classe ao seu projeto. O opção Inherited cria uma ligação com o item ancestor no repositório. Quando você recompilar seu projeto, é refletida qualquer mudança que foi feita ao item no Repositório de Objeto em sua classe derivada. Estas mudanças se aplicam ( além de qualquer mudança ou adições que você faz ) ao item em seu projeto. As mudanças feitas na sua classe derivada não afeta o item compartilhado no Repositório de Objeto.

abraço

[Daniel Sanches]

obrigado pela atenção !!!

abraços !!