تغيير در عملكرد دگمه Close پنجره

سلام
بازم من با سوالهاي ....
انشاء ... كه حال همگي خوب باشه.
خلاصه
من مي خوام وقتي روي دكمة Close فرمم كليك مي كنم يه فرم ديگه باز بشه. (فرمم بسته نشه) توي رويداد OnClose فرمم بايد چه كدي بنويسم تا پنجره دوم باز بشه و فرم اصليم هم بسته نشه؟
هر وقت توي رويداد Onclose فرمم مي نويسم مثلا: Form2.show تا مياد فرم دوم نشون داده بشه برنامه بسته ميشه.
موفق باشين
باي

سلام

نه بابا. باز هم romixery گل گلاب.

راستش خیلی خوشم میاد از سوالاتت :D. اما این بار چهار بار سوالت رو خوندم...

بگذریم.

کد:

---

  Action := caNone;
  Form2.Show;

---

این کد هم برای OnClose.


حالا یک سوال برای چی این کد رو میخواهی بزاری برای فرم اصلی؟

توجه داشته باش که یک دکمه Exit باید بسازی و براش دستور Application.Terminate رو بنویسی.

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


موفق باشی

شما شايد بخواهيد كه برنامه فقط با كليدي كه شما تعريف می کنید بسته بشه.
براي اين كار بايد كليدهاي ALT+F4 از كار بيفتند.



:Code

در قسمت VAR در بالاي قسمت IMPLEMENTATION يك متغيير به شكل زير تعريف نماييد :

;CV:BOOLEAN

در رويداد ON CLOSE QUERY اين گونه بنويسيد

;CANCLOSE:=CV
و در رويداد ONSHOW فر م اينگونه بنویس
;CV:=FALSE

حال تا زماني كه اين متغيير FALSE باشه فرم بسته نمیشه بنابراين در كليدي كه براي خروج تعريف میکنید بايد اينگونه عمل كنيد
;CV:=TRUE

;FORM.CLOSE

این رو گفتم که برنامه شما بسته نشه به هرحال شاید بی ربط باشه !!!

نمیدونم بدردتون خوردم یا نه ؟
به هرحال همین قدر بیشتر بلد نبودم
بای

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
بازم من با سوالهاي ....
انشاء ... كه حال همگي خوب باشه.
خلاصه
من مي خوام وقتي روي دكمة Close فرمم كليك مي كنم يه فرم ديگه باز بشه. (فرمم بسته نشه) توي رويداد OnClose فرمم بايد چه كدي بنويسم تا پنجره دوم باز بشه و فرم اصليم هم بسته نشه؟
هر وقت توي رويداد Onclose فرمم مي نويسم مثلا: Form2.show تا مياد فرم دوم نشون داده بشه برنامه بسته ميشه.
موفق باشين
باي

---

سلام
اين هم يك روش ديگه :

کد:

---

  private
  procedure WMSysCommand(var Msg: TWMSysCommand);
                          message WM_SYSCOMMAND;

---

کد:

---

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);

begin
 if Msg.CmdType = SC_CLOSE then
  Form2.showmodal
 else
 inherited;
end;

---

بازم سلام
واقعا دستون درد نكنه از اين دلسوزي شماها.:40:
كد سلجر جان كارمو راه انداخت.:31:
حالا گفتين براي چي مي خوام اين كار رو بكنم:
واقعيت اينكه من برنامه اي رو نوشتم كه قبل از خروج از برنامه بايد از كاربر بخواد كه چگونه از برنامه خارج بشه.:18:
مثلا فقط مي خواد خارج بشه، يا نه خارج شدن همراه با پشتيبان گيري از برنامه باشه، يا مي خواد فقط تغيير كاربر بده يا... .
مثل ويندوز XP خودمون ديگه. وقتي مي خواين Shotdown كنين چه پنجره اي باز ميشه؟ من همون پنجره رو براي برنامم شبيه سازي كردم.
بازم از همگي ممنونم.
موفق باشين
باي:10:

مگه داری چیکار میکنی که برنامه پشتیبان بگیره
منظورت از پشتیبان ثبت اطلاعات هستش یا فایل ها رو توی یه جای دیگه ذخیره میکنه
به هر حال موفق باشی
بای