bi hortlatıyım belki şu anda bilen vardır :) www.yesilgrow.com - Growshop

procedure TForm1. FormMouseMove ;const ox:integer=0; oy:integer=0;beginif ((ox=0) and (oy=0)) or ((Abs <5) And (Abs <5)) Thenbeginox:=x;oy:=y;ShowCursor ;end else beginShowCursor ;end;procedure TForm1. Timer1Timer ;beginimage1. Left:=random(400);image1. top:=random(500);end;

Hocalar delphide ekran koruyucu yaptım. Ama okuldaki hocam üzerinde yazı değil resim olsun istiyor. Rasgele resim değişecek yada resimler kayıp geçecek. bunlar kodu elinde olan varsa çok makbule geçer :)şimdiden teşekkürler :) www.yesilgrow.com - Growshop