PDA

View Full Version : جلوگیری از بسته شدن فرم


mhkyazd
یک شنبه 25 فروردین 1387, 15:48 عصر
فرض کنید یه فرم داریم میخواهیم کاربر وقتی اون ضربدر فرم رو زد فرم به جای بسته شدن مستقیم فرم, از ما سوَال کند که آیا می خواهی فرم را ببندی یا نه اگر yes را زد فرم بسته شود و اگر no را زد فرم بسته نشود
Mahyaa
یک شنبه 25 فروردین 1387, 15:57 عصر
در رویداد OnCloseQuery فرم بنویس :


if MessageDlg('Are you Sure ?' , mtConfirmation , [mbYes, mbNo] , 0) = mrYes then
CanClose := True;

در ضمن اگه عنوان سوالت رو یه جوری بگذاری که همه موضوع سوال رو بفهمن ، خیلی بهتره :)
mhkyazd
دوشنبه 26 فروردین 1387, 15:41 عصر
در رویداد OnCloseQuery فرم بنویس :


if MessageDlg('Are you Sure ?' , mtConfirmation , [mbYes, mbNo] , 0) = mrYes then
CanClose := True;در ضمن اگه عنوان سوالت رو یه جوری بگذاری که همه موضوع سوال رو بفهمن ، خیلی بهتره :)

این کدی که شما نوشتی اگه yes بزنی بسته میشه و اگه هم no بزنی بسته میشه قضیه چجوریه ممنون
dana74
دوشنبه 26 فروردین 1387, 15:51 عصر
این کدی که شما نوشتی اگه yes بزنی بسته میشه و اگه هم no بزنی بسته میشه قضیه چجوریه ممنون
قسمت زیر را هم به ته کد فوق اضافه کن:


else
Canclose:=false;
SYNDROME
دوشنبه 26 فروردین 1387, 16:59 عصر
می توانید در رویداد OnClose فرمتان بنویسید:


Action := caNone;

موفق باشید
mhkyazd
دوشنبه 26 فروردین 1387, 22:09 عصر
می توانید در رویداد OnClose فرمتان بنویسید:


Action := caNone;
موفق باشید

ممنون از راهنماییتان