Editor Login | Register
Ekle

> Bilgisayar > Nesne Programlama > delphi
Zaman geçikmesi Oluşturmak - delphi - Nesne Programlama - Bilgisayar -
m@cromedia
(Date : 15.11.2007 12:53:03)


Zaman geçikmesi Oluşturmak
zaman gecikmesi oluşturarak programınıza bazı işlemler yaptırabilirsiniz.Bunu procedure olarak tanımlarsanız her yerde kullanabilirsiniz   procedure gecikme(g:longint);
var
t:Longint;
  begin
        t:=GetTickCount;

        while(GetTickCount-t)< g do
        Application.ProcessMessages;
   end;

//Kullanımı;//

procedure TForm1.Button1Click(Sender:TObject);
begin
Label1.Caption:="5 saniye bekleyin...";
gecikme(5000);
Label1.Caption:="Tamam...";
end;










Derecelendir
Kaynak m@cromedia Tarafından yazılmış/derlenmiştir.
İçerik İhbarı
Bağlantılar: bilgininefendisi.net

Open Source Document Project AUP&TOS