Novas propriedades num Componente, ser� que posso fazer?

Question

Ol� amigos, queria incluir nos componentes TEdit e TDBEdit, ou qualquer varia��o deles as seguintes propriedades:DisableColor, DisableFontColorPara que? Pra quando o Enabled deles estiverem como False...

Renato.pavan · Answer

[quote:f6c6ce4299=�titanius�]Para que? Pra quando o Enabled deles estiverem como False, eles mudarem de cor, fa�o isso manualmente, ent�o pensei em incluir isso no pr�prio Edit.[/quote:f6c6ce4299]Colega,Como vc faz pra mudar a cor da fonte do Edit ou DBEdit qdo deixa ele enable := False?ObrigadoRenato....

Michael · Answer

Ol� [b:1fbd60d1f8]titanius[/b:1fbd60d1f8]!

Uma vez fiz um componente derivado de [b:1fbd60d1f8]TMaskEdit [/b:1fbd60d1f8]que tinha v�rios recursos extras, e um deles era exatamente esse que vc quer: mudar a cor do controle qdo [b:1fbd60d1f8]Enabled [/b:1fbd60d1f8]for igual a [b:1fbd60d1f8]False[/b:1fbd60d1f8].

Vc tem duas op��es: ou cria uma nova classe derivada de [b:1fbd60d1f8]TEdit [/b:1fbd60d1f8]- ou [b:1fbd60d1f8]TMaskEdit [/b:1fbd60d1f8]- e implementa a nova propriedade; ou, se estiver usando o Delphi 2005/2006, pode usar o recurso adicionado � Delphi Language nessa vers�es chamado [b:1fbd60d1f8]Class Helper[/b:1fbd60d1f8]. Ele permite que sejam adicionados novas funcionalidades � classes existentes. Saiu um artigo sobre este feature em alguma edi��o do final do ano passado da revista ClubeDelphi. N�o lembro de cabe�a qual agora... :-(

Seja qual for o caminho que vc escolher, se tiver d�vidas, poste aqui. ;-)

[]�s

Titanius · Answer

Fala ae Michael... vc eh o cara dos componentes.. :roll:

Estava pensando... Seria �mais f�cil� (repare nas aspas :D ) eu criar um componente derivado, pois tenho v�rios sistemas em D7, e n�o poderia usar o recurso que vc mencionou...

Voc� poderia me dar um exemplo de como eu fa�o isso?

[]s

Michael · Answer

Desculpe pela resposta tardia, mas estou meio enrolado por aqui...

Bom, vc s� precisa interceptar a mensagem [b:72ccfa4028]CM_FONTCHANGED[/b:72ccfa4028] no seu componente - que precisa derivar de [b:72ccfa4028]TControl[/b:72ccfa4028], ainda que indiretamente - e na rotina de tratamento setar a cor do componente para �quela definida para ser usada qdo [b:72ccfa4028]Enabled [/b:72ccfa4028]for igual a [b:72ccfa4028]False[/b:72ccfa4028]. Veja:

TMeuComponente = class(TEdit)
  ...
  protected
    procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
  ...
end;

...

procedure TMeuComponente.CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
begin
  if Enabled then
    Color := FCorOriginalSalva
  else
    Color := FCorDesativado;

  Invalidate;
end;

Note que vc vai precisar salvar a cor original do componente para poder restaur�-la depois.

Qualquer d�vida, � s� postar... ;-)

[]�s

Renato.pavan · Answer

[quote:385373bd4e=�titanius�]Ol� amigos, queria incluir nos componentes TEdit e TDBEdit, ou qualquer varia��o deles as seguintes propriedades:DisableColor, DisableFontColorPara que? Pra quando o Enabled deles estiverem como False, eles mudarem de cor, fa�o isso manualmente, ent�o pensei em incluir isso no pr�prio Edit.Ent�o eis minha pergunta, � melhor eu criar um outro componente para isso, ou arrumar um jeito de incluir isso no componente do proprio delphi? No caso, como faria?Desde j� agrade�o.[]s[/quote:385373bd4e]Colega, vc poderia me dizer como vc faz pra mudar a cor da fonte de um edit por exemplo, quando sua propriedade enabled estiver setada como false?Desde ja agrade�oRenato...

F�rum Novas propriedades num Componente, ser� que posso fazer? #319481