يكسري عمليات ر اكه انجام مي دهم Showmesage() پيغام Please wait بدهد و در پايان پيغام حذف شود [بایگانی]

ali_abbasi22145

سه شنبه 17 شهریور 1388, 20:58 عصر

سلام
من مي خواهم يكسري عمليات ر اكه انجام مي دهم Showmesage() يا هر دستور پيغام ديگر ، پيغام Please wait بدون هيچ دگمه اي مثل OK را نشان دهد و بعد پايان عمليات Showmesage() ديگر نشان داد نشود.
اگر بتوان Showmesage() را به رنگ قرمز باشد خيلي خوب مي شود اگر نمي شود ايراد ندارد!

merced

سه شنبه 17 شهریور 1388, 22:03 عصر

يه فرم به دلخواه خودت درست كن و Style اون رو Alwayse on top بذار

try
WaitForm.Show();
Form1.Enabled := False ;
DoYourOp() ;
WaitForm.Close();
Form1.Enabled := True ;
except
WaitForm.Close();
Form1.Enabled := True ;
ShowMessag('it is an Error!!!! ')
end ;