PDA

View Full Version : کد برای رویداد CANCEL؟



DelphiAmateur
شنبه 16 فروردین 1382, 04:58 صبح
با سلام
دوستان یه مشکل آماتوری دارم که امیدوارم کمکم کنید،یه برنامه ای ساختم که میخواستم اگه تغییراتی در اون رخ بده موقع بستن برنامه اخطاز بده،

MessageBox که انتخاب کردم از نوع YESNOCANCELهست،همه کارش رو انجام دادم ولی نمیدونم واسه رویداد Cancelچه کدی رو بنویسم؟!

ممنون میشم راهنمایی کنید



procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
res : Integer;
begin
if Memo1.Modified then
begin
res := Application.MessageBox('The current file has changed,Do you want to save changes?','My Note Pad Message',MB_YESNOCANCEL );
if res = IDYES then
FileSaveClick(Sender);
if res = IDCANCEL then
???{نمیدونم چی بنویسم}???
else
exit;
end;

Vahid_Nasiri
دوشنبه 18 فروردین 1382, 16:10 عصر
فرض کن که یک ویرایش گر ساده متنی نوشته ای. حجم فایل ذخیره شده آنرا می شود در هر لحظه trace کرد و اگر با قبلی آن تفاوت داشت اخطار بدهد که دوست عزیر لطفا اطلاعات تغییر کرده را ذخیره کنید یا خیر! البته این راه زیاد پخته نیست و احتیاج به مطالعه بیشتر دارد ولی حداقل برای شروع بد نیست.

amirrf
دوشنبه 18 فروردین 1382, 22:12 عصر
براى حالتى که کاربر Cancel را انتخاب کرده است بنویسید:

Action:= caNone
تا فرم بسته نشود.

Vahid_Nasiri
سه شنبه 19 فروردین 1382, 00:09 صبح
اگه تغییراتی در اون رخ بده ......

DelphiAmateur
سه شنبه 19 فروردین 1382, 06:22 صبح
مرسی امیر جان جوابم رو گرفتم.ممنون از توجه شما :D