folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Delphi De Ekran Koruyucu. Rasgele Ya Da Kayan Resim ( Yardım )



Delphi De Ekran Koruyucu. Rasgele Ya Da Kayan Resim ( Yardım )

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Sharp
    Sharp's avatar
    Kayıt Tarihi: 02/Temmuz/2007
    Erkek

    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
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Sharp
    Sharp's avatar
    Kayıt Tarihi: 02/Temmuz/2007
    Erkek

    bi hortlatıyım belki şu anda bilen vardır :) 

    www.yesilgrow.com - Growshop
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Gladiator
    Gladiator's avatar
    Kayıt Tarihi: 13/Haziran/2006
    Erkek
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
    const     ox:integer=0; oy:integer=0;
    begin
    if ((ox=0) and (oy=0)) or ((Abs(ox-x)<5) And (Abs(oy-y)<5)) Then
    begin
    ox:=x;
    oy:=y;
    ShowCursor(false);
    end else
    begin
    ShowCursor(true);
    end;
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    image1.Left:=random(400);
    image1.top:=random(500);
    end;
    Reply With Quote Alıntı yap
Toplam Hit: 3172 Toplam Mesaj: 3