[Ajuda] Como limpar os TImage ao desabilitar um CheckBox
Olá amigos,
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 é:
Obrigado!
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
Curtidas 0
Respostas
Bruno Leandro
01/05/2012
tenta desta forma
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
form2.Image1.Picture := dbimage1.picture
else
form2.Image1.Picture := nil;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
form2.Image1.Picture := dbimage1.picture
else
form2.Image1.Picture := nil;
end;
GOSTEI 0
Jore
01/05/2012
Dica perfeita mais...
Tentei usar para mais outros dois cokpentes e ta dando erro veja:
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
Bruno Leandro
01/05/2012
procedure TForm1.CheckBox1Click(Sender: TObject);
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;
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
Jore
01/05/2012
Perfeito!!
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!
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
Jore
01/05/2012
Como edito o tópico para dizer que minha dúvida foi respondida?
GOSTEI 0
Bruno Leandro
01/05/2012
essa eu ja nao sei, mas estamos a disposição.
GOSTEI 0
Wesley Yamazack
01/05/2012
Olá Jore, não precisa fazer isso, fechar o tópico.
Um abraço e bons códigos.
Um abraço e bons códigos.
GOSTEI 0