كوچك كردن كل برنامه با زدن دكمه Minimize هر فرم

[bmanfy]

سلام دوستان من برنامه دارم كه ميخوام رو دكمه Minimize هر يك از فرمها كه كليك كردم كل برنامه كوچك بشه . دستور كوچك كردن كل برنامه رو ميدونم .
چيزي كه ميخو.ام بدونم اينه كه زماني كه دكمه ي Minimize هر فرمكي رو ميزنيم كدوم ريداد اتفاق ميافته
مرسي

[mossaferin]

سلام

این کد رو در قسمت Public فرمهات اضافه کن


procedure WMSysCommand(var Msg: TWMSysCommand) ;message WM_SYSCOMMAND;
این کد رو هم بعد از implementation اضافه کن، ولی برای هر فرمی نام فرم تغییر میکنه


procedure TForm2.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then Application.Minimize;
DefaultHandler(Msg) ;
end;
موفق باشی

[bmanfy]

سلام دویت عزیز . مرسی بایت پاسخی که دادی . اما یه مشکلی هست اونم اینه که من میخوام کل برنامه به تسک بار منتقل بشه در حالی که این کد شما اخرین فرو رو روی تسک بار قرار نمیده .
این چیزی رو هم که می گم دیدم تو برنامه هایی که اعمال شده.
مرسی .

[mossaferin]

سلام


سلام دوستان من برنامه دارم كه ميخوام رو دكمه Minimize هر يك از فرمها كه كليك كردم كل برنامه كوچك بشه . دستور كوچك كردن كل برنامه رو ميدونم .
چيزي كه ميخو.ام بدونم اينه كه زماني كه دكمه ي Minimize هر فرمكي رو ميزنيم كدوم ريداد اتفاق ميافته

اما یه مشکلی هست اونم اینه که من میخوام کل برنامه به تسک بار منتقل بشه در حالی که این کد شما اخرین فرو رو روی تسک بار قرار نمیده

این مثال جهت تشخیص رویداد کوچک کردن هر فرم بود

اگه دستور کوچک کردن کل برنامه رو میدونی که فقط کافیه اونو جایگزین این کد کنی
Application.Minimize;
و اگه نه به این آدرس مراجعه کن

[/URL][URL]http://www.delphi3000.com/articles/article_1019.asp?SK= (http://www.delphi3000.com/articles/article_1019.asp?SK=)

موفق باشی