Mudar a cor do panel parent Delphi

25/05/2018

127

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;

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.
Responder

Mais Posts

Corrigindo * Boa tarde eu tenho varios panels criados em tempo de execução e cada panel tem um TImage
Responder
Muito Obrigado , deu certo !!!!
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar