Başlangıç > Kodlar > Delphi ile Delay(Kod Beklemek) kullanımı

Delphi ile Delay(Kod Beklemek) kullanımı

Delphinin verdiği sleep() komutu formu donduruyor bunu engellemek için .

//byjeepower@hotmail.com

//çok gerekli bir kod

procedure Delay(ms : longint);
var TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;

//test
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Start');
Delay(2000);//2sn
ShowMessage('End');
end;
--------------------------------------------------------------------------------
// delay verme işini bilgisayarı uyutarakta yapabiliriz.(delphide hali hazırda var)
//Fakat bu yöntem biligisayarı hem yavaşlatır hemde forma ulaşmayı engeller tercih sizin
// II.yol

//test
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Start');
Sleep(2000);//2sn
ShowMessage('End');
end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: