Ola amigo agora de certoo... Muito obrigado pela ajuda. Folgando um poco to com otro problema. é o seguinte eu estou fazendo um jogo da memoria para a escola e eu estou com outro problema. quando eu clico uma vez na imagem para mudar na proxima vez eu tenho que clicar duas vezes e na proxima 3 e assim vai. porque sera? olha o codigo como esta em cada imagem. var
num: integer;
i: integer;
cont: integer;
begin
if pos[1,2] = 0 then // pos[x,2]
begin
image1.Picture.LoadFromFile( floattostr(pos[1,1]) + '.jpg'); // imagex pos[x,1]
pos[1,2] := 1; //pos[x,2]
certo := pos[1,3]; // pos[x,3]
end
else
begin
image1.Picture.LoadFromFile( '10.jpg'); //imagex
pos[1,2] := 0; //pos[x,2]
certo := pos[1,3]; //pos[x,3]
end;
for cont:=1 to 20 do
begin
if pos[cont,2] = 1 then
begin
if cont <> 1 then // cont <> x
begin
if pos[cont,1] = pos[1,1] then // pos[cont,1] = pos[x,1]
begin
image1.Enabled := false;
TImage(Components[certo]).Enabled := false;
num := strtoint(label2.Caption);
num := num + 5;
label2.caption := inttostr(num);
end
else
begin
application.ProcessMessages;
sleep(500);
image1.Picture.LoadFromFile('10.jpg');
TImage(Components[certo]).Picture.LoadFromFile('10.jpg');// caminho da figura
end;
end;
end;
end;
end; veja se você entendeu. sera que você sabe o que pode esta acontecendo? só falta isso para que o programa fique perfeito. Tem como me ajudar? Obrigado