Mudar a cor do panel parent Delphi

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

Lucas Domiciano

Responder

Post mais votado

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.

Emerson Nascimento

Emerson Nascimento
Responder

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

25/05/2018

Lucas Domiciano

Muito Obrigado , deu certo !!!!
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar