Fórum Componente Image(duvida) #284804
15/06/2005
0
Turma, eu não mexo no delphi faz um ano. Só lembro das coisas basicas.
Gostaria de saber como faço para mexer com a figura. Tipo no codigo abaixo ele não deixa eu fazer varias açoes. Exemplo
dx2:=´casa´;
dx1:=edit1.Text;
if(dx1 = dx2)then
begin
image1.Picture.Create;
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;
end;
este codigo mostra uma figura se estiver certo e senao não mostra.
Só que eu quero testar as duas possibilidades, na verdadeira funciona e na parte negativa dá um bug...
Tem como alterar este codigo para melhor.
grato.
Gostaria de saber como faço para mexer com a figura. Tipo no codigo abaixo ele não deixa eu fazer varias açoes. Exemplo
dx2:=´casa´;
dx1:=edit1.Text;
if(dx1 = dx2)then
begin
image1.Picture.Create;
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;
end;
este codigo mostra uma figura se estiver certo e senao não mostra.
Só que eu quero testar as duas possibilidades, na verdadeira funciona e na parte negativa dá um bug...
Tem como alterar este codigo para melhor.
grato.
Gollum
Curtir tópico
+ 0
Responder
Posts
15/06/2005
Rodrigo Coutinho
Insira um componente tImage em seu form
dx2 := ´casa´;
dx1 := edit1.Text;
if (dx1 = dx2) then
begin
Showmessage(´Voce acertou...´);
Image1.Visible := True;
Image1.Picture.LoadFromFile(´D:\Familia\Renato\Delphi\Evolução\casa.bmp´);
end
else
begin
Showmessage(´Voce errou tente de novo´);
Image1.Visible := False;
edit1.Clear;
end;
[]s, Rodrigo Coutinho
dx2 := ´casa´;
dx1 := edit1.Text;
if (dx1 = dx2) then
begin
Showmessage(´Voce acertou...´);
Image1.Visible := True;
Image1.Picture.LoadFromFile(´D:\Familia\Renato\Delphi\Evolução\casa.bmp´);
end
else
begin
Showmessage(´Voce errou tente de novo´);
Image1.Visible := False;
edit1.Clear;
end;
[]s, Rodrigo Coutinho
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)