Ver Mensaje Individual
  #3  
Antiguo 05-08-2005
gontxalo gontxalo is offline
Miembro
 
Registrado: may 2005
Posts: 99
Reputación: 20
gontxalo Va por buen camino
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
Responder Con Cita