Componente...

Question

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

Osocram · Answer

Na verdade esta errado.O evento � uma maneira do componente se comunicar e dar flexibilidade para o desenvolvedor que vai usar.Vc n�o pode usar o evento p trabalhar dentro do componentedeve procurar um metodo para isso, ou pegar msg do windows, algo do tipo.[quote:e31b459380=�danielrsanches�]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 !!![/quote:e31b459380]...

Danielrsanches · Answer

como eu deveria fazer ???preciso saber quando o foco sai do componente, acionando assim a rotina de mudan�a de cor ...tem alguma id�ia ???abra�os !!...

Osocram · Answer

[code:1:f662ef70b4]    procedure CMEnter(var Message: TCMEnter); message CM_ENTER;    procedure CMExit(var Message: TCMExit);   message CM_EXIT;[/code:1:f662ef70b4]tente usar esses...[quote:f662ef70b4=�danielrsanches�]como eu deveria fazer ???preciso saber quando o foco sai do componente, acionando assim a rotina de mudan�a de cor ...tem alguma id�ia ???abra�os !![/quote:f662ef70b4]...

Danielrsanches · Answer

eu fiz como disse acima, por�m, agora o problema inverteu ...ele executa o Exit dentro do componente e o OnExit n�o est� funcionando ....tem id�ia do que pode ser ???...

Danielrsanches · Answer

minha procedure ficou assim:[code:1:8ba7636a01]procedure TdsDBEdit.setFocoExit(var Message: TCMExit);begin        Color:= fCorNaoFocado;        Font.Assign(fFontNaoFocado);        if Assigned(OnExit) then                OnExit(Self);end;[/code:1:8ba7636a01]assim ele executa os 2, tanto o setFocoExit quanto o pr�prio OnExit, por�m, o componente n�o est� jogando mais o valor na tabela do banco de dados ...to ficando louco com isso !!!...

Osocram · Answer

Isso que eu disse aqui...vc tem que colocar o [code:1:75ffac8288]Inherited;[/code:1:75ffac8288]na implementa��o... so la dentro... sem fazer override da msg.[quote:75ffac8288=�osocram�][code:1:75ffac8288]    procedure CMEnter(var Message: TCMEnter); message CM_ENTER;    procedure CMExit(var Message: TCMExit);   message CM_EXIT;[/code:1:75ffac8288]tente usar esses...[quote:75ffac8288=�danielrsanches�]como eu deveria fazer ???preciso saber quando o foco sai do componente, acionando assim a rotina de mudan�a de cor ...tem alguma id�ia ???abra�os !![/quote:75ffac8288][/quote:75ffac8288]...

Danielrsanches · Answer

obrigado Osacram... resolvi o problema colocando a procedure assim:

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

agora, vc teria uma explica��o b�sica sobre o inherited ??? me desculpe a ignor�ncia, mas n�o fa�o id�ia do que ele t� fazendo ali que deu certo !!! rsrsrs

obrigado !!

F�rum Componente... #372371