Fórum Mudar a cor do panel parent Delphi #594460
25/05/2018
0
Boa tarde eu tenho varios panels criados em tempo de execução tem um TImage , eu fiz um procedimento que quando clicasse no TImage , eu mudasse a cor do panel , porém não estou conseguindo , Alguem pode me ajudar , estou enviando o código abaixo.
procedure TTESTE_FRM.clique(Sender: TObject);
var
i : integer;
Controle : TControl;
begin
for i := 0 to ComponentCount-1 do
begin
if (TImage(Components[i]) = Sender) then
begin
resposta := TImage(Components[i]).Name;
Controle := (Sender as TControl).Parent;
if Controle is TPanel then
with Controle do
begin
Color := clGreen;
ShowMessage(Name);
end;
end;
end;
end;
Lucas Domiciano
Curtir tópico
+ 0
Responder
Post mais votado
25/05/2018
deveria ser somente:
note que para isso funcionar as propriedades ParentColor e ParentBackground do TPanel precisam estar False.
procedure TTESTE_FRM.clique(Sender: TObject);
var
Controle: TControl;
begin
Controle := TControl(Sender).Parent;
if Controle is TPanel then
with TPanel(Controle) do
begin
Color := clGreen;
ShowMessage(Name);
end;
end;
note que para isso funcionar as propriedades ParentColor e ParentBackground do TPanel precisam estar False.
Emerson Nascimento
Responder
Gostei + 3
Mais Posts
25/05/2018
Lucas Domiciano
Corrigindo * Boa tarde eu tenho varios panels criados em tempo de execução e cada panel tem um TImage
Responder
Gostei + 0
25/05/2018
Lucas Domiciano
Muito Obrigado , deu certo !!!!
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)