DelphiAmateur
شنبه 16 فروردین 1382, 05: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;
دوستان یه مشکل آماتوری دارم که امیدوارم کمکم کنید،یه برنامه ای ساختم که میخواستم اگه تغییراتی در اون رخ بده موقع بستن برنامه اخطاز بده،
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;