Apagar um componente TImage em tempo de execu��o

Question

Por favor,...me ajudem,...como apagar um timagem em tempo de execu��o?criar � f�cil agora apagar ta osso,.......

Maikel · Answer

Ol�...Mas voc� precisa mesmo excluir ele? nunca fiz isso.... nem sei se � possivel... Voc� n�o consegue deixar ele como visible:=false ?Se for para n�o exibir na tela.... oculta ele, creio que � mais pr�tico.AttMaikel...

Douglas Morette · Answer

[quote:29b6bfdac3=�maikel�]Ol�...Mas voc� precisa mesmo excluir ele? nunca fiz isso.... nem sei se � possivel... Voc� n�o consegue deixar ele como visible:=false ?Se for para n�o exibir na tela.... oculta ele, creio que � mais pr�tico.AttMaikel[/quote:29b6bfdac3]Desde j� agrade�o pela aten��o...Mas... preciso apagar sim.motivo: tenho uma imagem e nesta imagem eu clico em um determinado ponto e crio um marcador TImagem em cima desta imagem, � como se fosse uma legenda de �cones. eu escolho o �cone e clico em um ponto da imagem para criar o �cone da legenda que eu escolhi. s� que se eu criar o icone errado, eu tenho que apagar ele...d� para entender?...

Maikel · Answer

Entendi... acho que o c�digo a seguir resolve o problema ent�o... adapte sua forma de cria��o de componente em runtime e veja como remove-los.

procedure TForm1.btCriarClick(Sender: TObject);
var
  campo : TEdit;
begin
  Campo := TEdit.Create(Self);
  campo.Parent := Self;
  campo.Top := btCriar.Top + 40;
  campo.Left := btCriar.Left;
  campo.Name := �Edit1�;
end;

procedure TForm1.btExcluirClick(Sender: TObject);
var
  Campo: TComponent;
begin
  Campo := FindComponent(�Edit1�);
  if not (Campo = nil) then begin
    Campo.Free;
  end;
end;

Att

Maikel

Maikel · Answer

Entendi... acho que o c�digo a seguir resolve o problema ent�o... adapte sua forma de cria��o de componente em runtime e veja como remove-los.

procedure TForm1.btCriarClick(Sender: TObject);
var
  campo : TEdit;
begin
  Campo := TEdit.Create(Self);
  campo.Parent := Self;
  campo.Top := btCriar.Top + 40;
  campo.Left := btCriar.Left;
  campo.Name := �Edit1�;
end;

procedure TForm1.btExcluirClick(Sender: TObject);
var
  Campo: TComponent;
begin
  Campo := FindComponent(�Edit1�);
  if not (Campo = nil) then begin
    Campo.Free;
  end;
end;

Att

Maikel

Woinch · Answer

Se voc� quer remover o componente TImage que foi criado em tempo de execu��o basta dar um FreeAndNil(Nome); Caso voc� queira apagar apenas um peda�o da imagem que foi criado pelo Canvas o �nico jeito ser� utilizando o pr�prio Canvas para redesenhar a imagem onde voc� desenhou outra por cima antes.

Douglas Morette · Answer

[quote:2c9509875f=�maikel�]Entendi... acho que o c�digo a seguir resolve o problema ent�o... adapte sua forma de cria��o de componente em runtime e veja como remove-los.[code:1:2c9509875f]procedure TForm1.btCriarClick(Sender: TObject);var  campo : TEdit;begin  Campo := TEdit.Create(Self);  campo.Parent := Self;  campo.Top := btCriar.Top + 40;  campo.Left := btCriar.Left;  campo.Name := �Edit1�;end;procedure TForm1.btExcluirClick(Sender: TObject);var  Campo: TComponent;begin  Campo := FindComponent(�Edit1�);  if not (Campo = nil) then begin    Campo.Free;  end;end;[/code:1:2c9509875f]AttMaikel[/quote:2c9509875f]agrade�o a todos a aten��oresolvido esse problemae qual era? -> eu criava um timagem com um fun��o de dele��o chamando-a pelo onclick da timagem criada, ai quando eu clicava em cima da imagem a ser excluida, excluia e dava erro pq tinha um evento onclick direcionado para aquela timagem... mas resolvido e obrigado mesmo.......mais j� vou deixar uma e essa eu nunca fiz mais preciso saber:Como dar um printscreen em uma determinada parte da tela e e salva em um arquivo de imagem?desde j� agrade�o......

Woinch · Answer

Criei agora, n�o testei...[code:1:c9639d5377]  keybd_event(VK_SNAPSHOT, 0, 0, 0);  Sleep(100);  Image1.Picture.LoadFromClipBoardFormat(CF_BITMAP, ClipBoard.GetAsHandle(CF_BITMAP),0);  Image1.Picture.SaveToFile(�C:nome do arquivo.bmp�);[/code:1:c9639d5377]PS: Quando for perguntar algo que foge do assunto inicial do t�pico original favor criar um novo t�pico para que o f�rum fique melhor organizado.Muito obrigado......

Alexcyberstar · Answer

Ja tentou assim?Image1.Picture := nil;...

Alexcyberstar · Answer

Explicando melhor....Image1.Picture := nil; //Limpa imagem no Image1 apresentadaFreeAndNil(Image1); //Elimina o componente Image1 do Form...

F�rum Apagar um componente TImage em tempo de execu��o #368377