View Full Version : كوچك كردن كل برنامه با زدن دكمه Minimize هر فرم
bmanfy
شنبه 16 آذر 1387, 11:39 صبح
سلام دوستان من برنامه دارم كه ميخوام رو دكمه Minimize هر يك از فرمها كه كليك كردم كل برنامه كوچك بشه . دستور كوچك كردن كل برنامه رو ميدونم .
چيزي كه ميخو.ام بدونم اينه كه زماني كه دكمه ي Minimize هر فرمكي رو ميزنيم كدوم ريداد اتفاق ميافته
مرسي
mossaferin
شنبه 16 آذر 1387, 19:59 عصر
سلام
این کد رو در قسمت 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
یک شنبه 24 آذر 1387, 18:18 عصر
سلام دویت عزیز . مرسی بایت پاسخی که دادی . اما یه مشکلی هست اونم اینه که من میخوام کل برنامه به تسک بار منتقل بشه در حالی که این کد شما اخرین فرو رو روی تسک بار قرار نمیده .
این چیزی رو هم که می گم دیدم تو برنامه هایی که اعمال شده.
مرسی .
mossaferin
یک شنبه 24 آذر 1387, 21:06 عصر
سلام
سلام دوستان من برنامه دارم كه ميخوام رو دكمه Minimize هر يك از فرمها كه كليك كردم كل برنامه كوچك بشه . دستور كوچك كردن كل برنامه رو ميدونم .
چيزي كه ميخو.ام بدونم اينه كه زماني كه دكمه ي Minimize هر فرمكي رو ميزنيم كدوم ريداد اتفاق ميافته
اما یه مشکلی هست اونم اینه که من میخوام کل برنامه به تسک بار منتقل بشه در حالی که این کد شما اخرین فرو رو روی تسک بار قرار نمیده
این مثال جهت تشخیص رویداد کوچک کردن هر فرم بود
اگه دستور کوچک کردن کل برنامه رو میدونی که فقط کافیه اونو جایگزین این کد کنی
Application.Minimize;
و اگه نه به این آدرس مراجعه کن
[/URL][URL]http://www.delphi3000.com/articles/article_1019.asp?SK= (http://www.delphi3000.com/articles/article_1019.asp?SK=)
موفق باشی
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.