Mega Code Archive
Delay
<![CDATA[
//drony@mynet.com
//icq:266148308
//ç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;
]]>