Mudar a cor do panel parent Delphi

Delphi

25/05/2018

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

Lucas Domiciano

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

25/05/2018

deveria ser somente:

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.
GOSTEI 3

Mais Respostas

Lucas Domiciano

Lucas Domiciano

25/05/2018

Corrigindo * Boa tarde eu tenho varios panels criados em tempo de execução e cada panel tem um TImage
GOSTEI 0
Lucas Domiciano

Lucas Domiciano

25/05/2018

Muito Obrigado , deu certo !!!!
GOSTEI 1
POSTAR