PDA

View Full Version : پيغام: كه آيا مطمئن هستيد كه مي خواهيد از برنامه خارج شويد


ali_abbasi22145
سه شنبه 23 تیر 1388, 15:09 عصر
سلام
من از Application.Terminate براي خروج برنامه استفاده مي كنم.
حال اگر كاربر خواست از برنامه خارج شود برنامه بگوييد "كه آيا مطمئن هستيد كه مي خواهيد از برنامه خارج شويد"
اگر ok داد خارج شود و گرنه خارج نشود.
tdkhakpur
سه شنبه 23 تیر 1388, 15:35 عصر
سلام
داخل رخداد OnCloseForm پارامتری به اسم Action وجود دارد که اگر بصورت زیر استفاده کنید مانع از خرمج شما از برنامه میشود.


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// اگر با شرایط شما سازگار نشد از برنامه با کد زیر مانع از خروج میشود.
Action := caNone;
end;
hp1361
سه شنبه 23 تیر 1388, 15:57 عصر
با سلام

شما می تونید در قسمت FormCloseQuery از فرمتون کد زیر رو بنویسید


if (MessageBox(Handle,'از برنامه خارج می شوید ؟','',MB_YESNO or MB_ICONQUESTION)=6) then
CanClose:=True
else
CanClose:=False;


موفق باشید
ali_abbasi22145
سه شنبه 23 تیر 1388, 16:25 عصر
با سلام

شما می تونید در قسمت FormCloseQuery از فرمتون کد زیر رو بنویسید


if (MessageBox(Handle,'از برنامه خارج می شوید ؟','',MB_YESNO or MB_ICONQUESTION)=6) then
CanClose:=True
else
CanClose:=False;


موفق باشید

سلام
من از منوي فايل يك خروج از برنامه دارم ، كه اين كد شما را براي آن استفاده كنم؟
ali_abbasi22145
سه شنبه 23 تیر 1388, 16:28 عصر
پيدا كردم:
MainForm.Close;