Fórum [Ajuda] Como limpar os TImage ao desabilitar um CheckBox #416114
01/05/2012
0
Bom, preciso da ajuda de vocês em um CheckBox.
Tenho o checkbox 1, que ao ser marcado vai enviar uma imagem para um TImage.
Só que se eu desmarcar o chackbox a imagem continua lá. Quero que ao desativar o CheckBox o TImage seja limpo.
O código que estou usando no OnClick do CheckBox é:
procedure TForm1.CheckBox1Click(Sender: TObject); begin form2.Image1.Picture := dbimage1.picture; end;
Obrigado!
Jore
Curtir tópico
+ 0Posts
02/05/2012
Bruno Leandro
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
form2.Image1.Picture := dbimage1.picture
else
form2.Image1.Picture := nil;
end;
Gostei + 0
02/05/2012
Jore
Tentei usar para mais outros dois cokpentes e ta dando erro veja:
procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then form2.Image1.Picture := dbimage1.picture; form2.Image2.Picture := dbimage2.picture; form2.Image5.Picture := dbimage3.picture Else form2.Image1.Picture := nil; form2.Image2.Picture := nil; form2.Image3.Picture := nil; end;
Gostei + 0
02/05/2012
Bruno Leandro
begin
if CheckBox1.Checked then
begin
form2.Image1.Picture := dbimage1.picture;
form2.Image2.Picture := dbimage2.picture;
form2.Image5.Picture := dbimage3.picture;
end
Else
begin
form2.Image1.Picture := nil;
form2.Image2.Picture := nil;
form2.Image3.Picture := nil;
end;
end;
Gostei + 0
02/05/2012
Jore
Eu já havia tentando o end antes do Else. Só que não coloquei o Begin apóis...Quem sabe sabe!
Muito obrigado você me ajudou muito!
Gostei + 0
02/05/2012
Jore
Gostei + 0
02/05/2012
Bruno Leandro
Gostei + 0
05/05/2012
Wesley Yamazack
Um abraço e bons códigos.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)