IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - ICQ mesaj geliyor (https://www.ircforumlari.net/delphi/689564-icq-mesaj-geliyor.html)

Kaf_Dağı

18 Mart 2015 14:37

ICQ mesaj geliyor

Kod:

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

  R: TRect;

begin

  I := R.Top - Height;

  while Top > I do

  begin

    Top := Top - 2;

    Repaint;

    IdAntiFreeze1.Sleep(10);

    IdAntiFreeze1.Process;

  end;

 

    IdAntiFreeze1.Sleep(1);

 

  I := Screen.Width - 20;

  while Top < I do

  begin

    Top := Top + 2;

    Repaint;

    IdAntiFreeze1.Sleep(10);

    IdAntiFreeze1.Process;

  end;

  Close;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:38.