View Full Version : تغییر Cursor در هنگام جستجو
spicirmkh
یک شنبه 21 تیر 1383, 11:29 صبح
سلام
می خواهم هنگام جستجو Cursor تغییر شکل پیدا کنه و به شکل ساعت در بیاد بعد جستجو به شکل اولیه در کل فرم یعنی Mouse حرکت دادیم در کل فرم به شکل ساعت باشد
با تشکر
مهدی کرامتی
یک شنبه 21 تیر 1383, 12:06 عصر
Form1.Cursor:=crHourGlass;
سپس
Form1.Cursor:=crDefault;
spicirmkh
یک شنبه 21 تیر 1383, 12:17 عصر
سلام
وقتی دستور Form1.Cursor:=crHourGlass می رسد Cursor روی فرم پاک یا مخفی می شود و فعال نیست و وقتی query اجرا شد با دستور Form1.Cursor:=crDefault دوباره می اید
خط برنامه من بصورت زیر است
with DataM.DQCompany do
begin
Open ;
Active := True ;
FormMain.Cursor:=crDefault;
end;
با تشکر
spicirmkh
یک شنبه 21 تیر 1383, 12:23 عصر
سلام
برنامه بالا اینجوری است
with DataM.DQCompany do
begin
FormMain.Cursor:=crHourGlass;
Open ;
Active := True ;
FormMain.Cursor:=crDefault;
end;
با تشکر
moradi_am
یک شنبه 21 تیر 1383, 13:48 عصر
Screen.Cursor (بجای form.cursor) را هم امتحان کنید
spicirmkh
یک شنبه 21 تیر 1383, 14:26 عصر
سلام
ممنونم درست شد
با تشکر
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.