Colorir apenas um panel

Delphi

Lógica de programação

01/06/2018

Boa tarde , estou com um problema , eu estou criando um panels e dentro do panel um tImage , tudo isso em tempo de execução , porem ao clicar em algum timage eu mudo de cor o panel parent desse tImage , pra dar ficar como um botao selecionado , só que eu gostaria que colorisse apenas um , sempre o ultimo que eu clicar . Aqui esta o codigo do onclick se alguem puder me ajudar eu agradeço.!
 clicado := 0;
  for i := 5 to ComponentCount-1 do
  begin
    if (TImage(Components[i]) = Sender) then
    begin
      //Controle := (Sender as TControl).Parent;
      Controle := TControl(Sender).Parent;
      if Controle is TPanel then
        resposta := TImage(Components[i]).Name;
        clicado := i;
        with TPanel(Controle) do
        begin
          if Color = clGreen then
            Color := clWhite
          else
            Color := clGreen;
        end;
    end
    else
    begin
      Controle := TControl(Sender).Parent;
      if Controle is TPanel then
        with TPanel(Controle) do
        begin
          if clicado <> i then
            Color := clWhite;
        end;
        exit;
    end;
  end;

Lucas Domiciano

Lucas Domiciano

Curtidas 0

Respostas

Lucas Domiciano

Lucas Domiciano

01/06/2018

RESOLVIDO JÁ !!!!
GOSTEI 0
POSTAR