Imagem 2x
Galera, eu fiz essa rotina aqui abaixo, só que ela está com bug...
var
dx1,dx2:string;
begin
dx2:=´casa´;
dx1:=edit1.Text;
if(dx1 = dx2)then
begin
Showmessage(´Voce acertou...´);
Image1.Picture.LoadFromFile(´D:\Familia\Renato\Delphi\Evolução\casa.bmp´);
end
else
begin
Showmessage(´Voce errou tente de novo´);
edit1.Clear;
image1.Destroy;
end;
ela nao deixa eu fazer duas vezes a rotina. Assim
edit1 = casa;
voce acertou e mostra a imagem
dai eu apago tudo e faco contrario.
edit1 = saca;
voce errou e dá um pau louco e naum mostra a imagem...
alguem tem uma solução?
grato.
var
dx1,dx2:string;
begin
dx2:=´casa´;
dx1:=edit1.Text;
if(dx1 = dx2)then
begin
Showmessage(´Voce acertou...´);
Image1.Picture.LoadFromFile(´D:\Familia\Renato\Delphi\Evolução\casa.bmp´);
end
else
begin
Showmessage(´Voce errou tente de novo´);
edit1.Clear;
image1.Destroy;
end;
ela nao deixa eu fazer duas vezes a rotina. Assim
edit1 = casa;
voce acertou e mostra a imagem
dai eu apago tudo e faco contrario.
edit1 = saca;
voce errou e dá um pau louco e naum mostra a imagem...
alguem tem uma solução?
grato.
Gollum
Curtidas 0
Respostas
Eduprp
14/06/2005
Colega
Pelo que entendi do seu código vc executa a primeira vez depois destroi o componente imagem (Image1.Destroy).
Fazendo isso na segunda vez que for executada vai dar pau mesmo pq o componente não existe mais. experimente fazer o seguinte:
Procedure Imagem.....
var
ImagemX: TImage;
begin
ImagemX:= TImage.Create;
....
...
...
...
ImagemX.Free;
end;
Eduardo
Pelo que entendi do seu código vc executa a primeira vez depois destroi o componente imagem (Image1.Destroy).
Fazendo isso na segunda vez que for executada vai dar pau mesmo pq o componente não existe mais. experimente fazer o seguinte:
Procedure Imagem.....
var
ImagemX: TImage;
begin
ImagemX:= TImage.Create;
....
...
...
...
ImagemX.Free;
end;
Eduardo
GOSTEI 0
Gollum
14/06/2005
Eduardo essa ideia não pegou. vc tem outra.
ou alguem tem uma sugestão melhor?!
grato...
ou alguem tem uma sugestão melhor?!
grato...
GOSTEI 0