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
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
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
Clique aqui para fazer login e interagir na Comunidade :)