ActiveDelphi

pestana

Eu peguei este código na web e gostaria de saber a opnião dos colegas.

O objetivo é alterar a cor do componente que recebe o foco!

marcosalles · Enviada: Sáb Set 12, 2009 11:13 am Assunto:

olha pestana , no meu ver , deve funcionar , mas este codigo com
ifs ... se for isto ,se for aquilo , se não for isto nen aquilo , se for isto e
aquilo .. etc... como vc mesmo sabe , deve ser evitado ..

Eu sugiro que vc faça o Teste usando este POG

type
TClasshelper = class(TControl)
public
property Color;
end;

{Apesar do nome ClasseHelpher , não estamos diante de classes Helper em
sua definição :

cainelli · Enviada: Seg Set 14, 2009 8:49 am Assunto:

marcosalles implementei conforme vc postou no forum mas esta ocorrendo erro de acess violation de maneira intermitente, ou seja, eu estou trabalhando no programa, abrindo e fechando forms qdo, de repente, ocorre o erro.
Os comandos

cainelli · Enviada: Seg Set 14, 2009 9:16 am Assunto:

marcos, me parece que o comando

pestana · Enviada: Seg Set 14, 2009 10:46 am Assunto:

bom dia MarcoSalles!

Obrigado por responder a minha dúvida!!!

Eu vou testar o seu código, mas adiantando, gostaria de saber porque você utiliza um bloco try ... except end e no bloco da exceção não tem nada declarado. Porque você implementou dessa maneira? Qual a finalidade?

E você saberia me dizer o que siginifica esta citação que eu postei:

gilsonnrodrigues · Enviada: Seg Set 14, 2009 5:07 pm Assunto:

pestana · Enviada: Ter Set 15, 2009 10:42 am Assunto:

valeu pela resposta Gilson!

Eu não utilizo desta forma, mas como eu andei pesquisando que tem mais pessoas que utilizam, eu queria saber o porque.

Gilson não querendo abusar de sua boa vontade, você poderia explicar o significado desta citação abaixo, no qual foi descrito no meu primeiro post.

pestana · Enviada: Qua Set 16, 2009 8:22 pm Assunto:

UP
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.

marcosalles · Enviada: Qui Set 17, 2009 7:26 am Assunto:

pestana · Enviada: Qui Set 17, 2009 12:42 pm Assunto:

Obrigado a todos que me ajudaram pela a explicação que foi de grande importância! Agora eu entendi do problema que pode ocorrer.

É sempre bom contar com pessoas como vocês!!!!
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.

AdecioJR · Enviada: Qua Nov 20, 2013 10:55 am Assunto: Colorir Componente Focado

Bom dia Pessoal, sei que o post é antigo mas fica aqui minha solução para futuras duvidas e até mesmo para conhecimento da técnica,
na técnica implementada eu nao preciso me ater a classe do componente dada a variedade de edits por exemplo de diversos fabricantes, apenas aponto peculiaridades da propriedade que desejo controlar

private
LastScreenControl: TWinControl;
procedure ChangeColorOnFocus(Sender: TObject);

public
procedure FormCreate(Sender: TObject);

implementation

procedure TFrmRomaneioNovo.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange:= ChangeColorOnFocus;
end;

procedure TFrmRomaneioNovo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{Importante para evitar access violation no encerramento da aplicação}
Screen.OnActiveControlChange:= Nil;
end;

procedure TFrmRomaneioNovo.ChangeColorOnFocus(Sender: TObject);
procedure SetColor(AObject: TObject; AColor: TColor);
begin
if isPublishedProp(AObject, 'Color') then
begin
if (isPublishedProp(AObject, 'Text')) or (isPublishedProp(AObject, 'Lines')) then
begin
SetPropValue(AObject,'Color', AColor);
end;
end;
end;
begin
if Assigned(LastScreenControl) then
begin
SetColor(LastScreenControl, clSilver);
end;

SetColor(ActiveControl, clYellow);
LastScreenControl:= ActiveControl;
end;