No me funciona correctamente
Hola
Algo me hace pero al dar al botón no se donde se va la imágen pero las scrollbar se hacen pero que muy pequeñas y por mucho que busco la imagen no la encuentro.
hago una prueba en un form nuevo con el siguiente code: (perdona que no meta el code en tag, no se donde están.
procedure TForm3.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
Var
Posy : integer;
Posx : integer;
begin
image1.left := posx;
image1.top := posy;
if posx < 300 then
posx := posx + 1;
if posy < 300 then
posy := posy + 1;
self.repaint;
if (posx>=300) and (posy >= 300) then
timer1.enabled := false
end;
El timer se pone en marcha al dar al botón, pero la imágen desaparece y no se donde va.
Gracias
|