بسته نشدن فرم در صورت فشردن کلید No

mnakhaei

باسلام.من میخوام وقتی کاربر فرم رو میبنده در زمان اجرا یه message box شامل دکمه های no و yes ظاهر بشه.به همین منظور برنامه زیر رو نوشتم اما نمیدونم چرا وقتی روی no کلیک بشه درست اجرا نمیشه اما yes آن درست اجرا میشه البته برنامه رو روی onclose فرمم نوشتم آخه اگه برنامه رو روی یه کلید در فرم بنویسم درسته اما من میخوام همون طور که گفتم وقتی فرم بسته میشه پیغام ظاهر بشه.لطفا منو زود راهنمایی فرمایید.متشکرم.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

case Application.MessageBox('Are You Sure You Want To Close?', 'message',

MB_YESNO + MB_ICONWARNING) of

IDYES:

begin

application.Terminate;

end;

IDNO:

begin

form1.Show;

end;