تغییر Cursor در هنگام جستجو

[spicirmkh]

سلام

می خواهم هنگام جستجو Cursor تغییر شکل پیدا کنه و به شکل ساعت در بیاد بعد جستجو به شکل اولیه در کل فرم یعنی Mouse حرکت دادیم در کل فرم به شکل ساعت باشد

با تشکر

[DelphiAssistant]

Form1.Cursor:=crHourGlass;
سپس

Form1.Cursor:=crDefault;

[spicirmkh]

سلام

وقتی دستور Form1.Cursor:=crHourGlass می رسد Cursor روی فرم پاک یا مخفی می شود و فعال نیست و وقتی query اجرا شد با دستور Form1.Cursor:=crDefault دوباره می اید

خط برنامه من بصورت زیر است


with DataM.DQCompany do
begin
Open ;
Active := True ;
FormMain.Cursor:=crDefault;
end;



با تشکر

[spicirmkh]

سلام
برنامه بالا اینجوری است


with DataM.DQCompany do
begin
FormMain.Cursor:=crHourGlass;
Open ;
Active := True ;
FormMain.Cursor:=crDefault;
end;

با تشکر

[moradi_am]

Screen.Cursor (بجای form.cursor) را هم امتحان کنید

[spicirmkh]

سلام

ممنونم درست شد

با تشکر