نحوه ساخت پیغام های "لطفا منتظر بمانید"

[ALIreza_nil]

با سلام خدمت دوستان

اگه امکان داره
نحوه ایجاد و ساخت پیغام های "لطفا منتظر بمانید..... " را توضیح بدید.
اگر دوستان محبت کنند به صورت یک مثال کامل ارائه کنند ممنون می شوم.


با تشکر از همه

[SYNDROME]

با سلام
بستگی دارد آن را چطور بخواهید
بعضی از وقتها ما آن را در StatusBar قرار می دهید و موقعی دیگر در یک Lableساده.
قبل از شروع دستورات این کد را می نویسیم.

StatusBar1.Panels[0].Text := 'لطفا منتظر بمانید';

StatusBar1.Refresh;

و سپس دستورات برنامه را بعد ازآن می نویسیم و در پایان دستورات مقدار را پاک می کنیم.

StatusBar1.Panels[0].Text := '';

StatusBar1.Refresh;

این یک مثال خیلی خیلی ساده بود.
در کنار این شما می توانید از Animate نیز استفاده کنید.
این چیزی که شما می خواهید بیشتراز اینکه برنامه نوبسی بخواهد خلاقیت می خواهد.

[object]

فکر کنم بهتره از یک فرم مخصوص این پیغام استفاده کنی و هروقت میخوای کار زمان گیری انجام بدی اون فرم رو show (و نه showmodal) کنی و در انتهای اون متد (پیشنهاد میدم از try... finally استفاده کنی و در قسمت finally) اون فرم رو ببندی
و برای هر متد هم میتونی پیغام مناسب رو توش بارگذاری کنی
فقط یادت نره حتما بعد show شدن اون فرم یکبار اون رو repaint کنی

[ALIreza_nil]

با سلام
با تشکر از راهنمائی های شما دوستان
هدف من از پرسیدن این سئوال این بود که چطور میشه این پیغام را به صورت یک فرم صدا زد که تا موقعی که عملیات پشت پرده ما در حال اجرا هست این فرم نمایش داده بشه و بعد از اتمام عملیات بسته بشه ومثلا در برنامه های حسابداری وقتی می خواهیم محاسباتی مثل تراز گرفتن از حساب ها را انجام بدیدم نیاز به یک سری عملیات پشت پرده داریم حالا چطوری این پیغام نمایش داده شود ........
به عنوان مثال :

procedure TReport_HD.Button1Click(Sender: TObject);

begin 

messageForm.showmodal.... or Show;

messageform.repaint;

.

.

.

.

messageform.close;

Reportform.showmodal;

end;

اما من با این روش جواب نگرفتم،امکان داره ربطی به روش مالتی ترد داشته باشه.
حالا تصور کنید که بخواهیم روند اجرای این عملیات را د داخل این فرم با progressbar بخواهیم نمایش دهیم........



باتشکر لطفا بیشتر توضیح دهید.

[SYNDROME]

با سلام
شما می توانید یک فرم بسازید و ProgressBarخود را روی آن قرار دهید.
سپس فرم خود را show کنید.
و هر جا که نیاز بود به ProgressBar خود یک واحد اضافه کنید.
و در آخر آن را Close کنید.

// شروع برنامه

Form1.Show

ProgressBar1.Max := 100;

While i < 100 Do

Begin

Inc(i);

From1.ProgressBar1.Position := ProgressBar1.Position + 1;

End;

Form1.Close;

در مثال بالا بنده یک حلقه ایجاد کردم که 100 بار تکرار می شود و هر بار یک واحد به ProgresBar اضافه کرده و در آخر پنجره فوق را می بندد.

[AFTABGARDAN2006]

مسئله دیگر این است که بخواهید شما همگام با فعالیتی که در پشت پرده انجام می دهید progresbar نیز به صورت واقعی جلو برود برای این کار من دو راه به ذهنم می رسد
1- یک متغییر سراسری گذاشته سپس در فرم منتظر بمانید هر چند ثانیه یک بار اون رو پک کنید اگر تغییر نموده به پروگرس یک .احد اضافه نمایید (البته روش دلچسبی نیست)
2- یه تابع بنویسید که با صدا زدن اون فرم منتظر بمانید رو فعال کنه

procedure showwait(var progr:Tguge // or progres)
Form1:=Form.create(application);
progr:=form1.progres1;
form1.show; //hatman show basheh na showmodal
end;

بعد در بدنه فعالیت پشت صحنه ات به progr یک واحد اضافه کن

[a_b_toops]

قبل از شروع محاسبات فرم ProgressBar که ساخته شده رو باز کن و بعد
ProgressBar1.Position را در حلقه محاسبات خود نسبت به تعداد رکوردهای محاسباتی افزایش دهید و بعد از اتمام کار ProgressBar را ببندید

[dkhatibi]

محاسباتی که در ان از ترد استفاده شده انجام این کار ساده تر و معقول تر است.
در غیر این صورت مثلا در هنگامی که حلقه ای محاسبه ای را انجام می دهد یک دیالوگ را نشون بده تا حلقه به پایان برسد(برای راحتی از فرم دوم استفاده کن.)

[ahmadbh]

با سلام
شما می توانید یک فرم بسازید و ProgressBarخود را روی آن قرار دهید.
سپس فرم خود را show کنید.
و هر جا که نیاز بود به ProgressBar خود یک واحد اضافه کنید.
و در آخر آن را Close کنید.

// شروع برنامه

Form1.Show

ProgressBar1.Max := 100;

While i < 100 Do

Begin

Inc(i);

From1.ProgressBar1.Position := ProgressBar1.Position + 1;

End;

Form1.Close;

در مثال بالا بنده یک حلقه ایجاد کردم که 100 بار تکرار می شود و هر بار یک واحد به ProgresBar اضافه کرده و در آخر پنجره فوق را می بندد.

من آزمایش کردم جواب نمیده

[me.enik]

من آزمایش کردم جواب نمیده

خب یعنی چی جواب نمیده ... !؟
منطق صحبت ایشون که درسته و روش کلی انجام میتونه همون باشه.
حالا اگر سورس کد مشکل داره که بعید میدونم, باید سورس رو اصلاح کرد و به راحتی هم میشه این کار رو انجام داد.

میشه واضح تر بگید که منظورتون از جواب نمیده دقیقا چیه !؟

[gholami146]

فقط یاد تون رفته فرم رو بعد از عملیاد مرتب update کنید