//Interface'den sonra gelen Uses Kismindan sonra asagidaki
//satirlari yazin.
const
WaitCursor: TCursor = crHourGlass;
procedure StartWait;
procedure StopWait;
//Procedurlerin yazildigi kisma asagidaki kodlari yazin.
//mesela programin son satirlarina
const
WaitCount: Integer = 0;
SaveCursor: TCursor = crDefault;
procedure StartWait; //kursuru beklemeli yap.Basa Tform1 yazmana gerek yok. Typten önce yazilmis prosedürler.
begin
if WaitCount = 0 then begin
SaveCursor := Screen.Cursor;
Screen.Cursor := WaitCursor;
end;
Inc(WaitCount);
end;
procedure StopWait;
begin
if WaitCount > 0 then begin
Dec(WaitCount);
if WaitCount = 0 then Screen.Cursor := SaveCursor;
end;
end;
//kullanimi
try
startwait;
Adoquery1.open;
....
finally
stopwait;
end;