7 auto scrolling dbgride in delphi

[morteza_5025]

با عرض سلام و خسته نباشی یه برنامه دارم مینویسم که یه سیستم مونیترینگه
که در محضر عام توسط مونیتور نمایش داده میشه میخوام زمانیکه تعداد رکوردهام بالا میره خود سیستم اتوماتیک در dbgrid اسکرول کنه تا زمانی که رکوردهام تموم میشه .و زمانی که نموم شد از اول شروع کنه
و یا یه روش دیگه پیشنهاد بدید (مثلا سیستم پروازها را در میدانهای هوایی میتونم مثال بزنم)

[vcldeveloper]

while True do
begin
while not AdoQuery1.EOF do
begin
AdoQuery1.Next;
Application.ProcessMessages;
Sleep(1000);
end;
AdoQuery1.First;
end;

البته استفاده از این کد در Thread اصلی برنامه باعث میشه که در فواصل یک ثانیه به یک ثانیه، برنامه به درخواست ها پاسخ نده. پس اگر قرار هست برنامه علاوه بر نمایش این داده ها پردازش دیگه ایی هم انجام بده، یا کاربر باید همزمان باهاش کار کنه، باید این کد را به یک Thread دیگه منتقل کنید، تا مکث یک ثانیه ایی حاصل از Sleep باعث اخلال در ارتباط کاربر با برنامه، یا کند شدن سایر پردازش های برنامه نشه.