اخطار موقع بسته شدن برنامه در دلفی

[mjzaret]

سلام

من برنامه‌ای نوشتم با زبان دلفی.

تازه کارم رو شروع کردم.

الان می‌خوام قبل از خروج کامل برنامه از من سوال کنه و در صورت جواب مثبت برنامه بسته بشه و در غیر اینصورت برنامه باز بمونه.

چطور می‌تونم چنین کاری رو انجام بدم؟

شاد باشید :لبخندساده:

[mjzaret]

با کد زیر انجامش دادم:


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
CloseWarning : String;
begin
CloseWarning := 'آیا برای خروج از برنامه اطمینان دارید؟';
if MessageDlg(CloseWarning, mtWarning, [mbOK, mbCancel], 0) = mrCancel then
CanClose := False;
end;

به نظر شما درست هست؟

یه مشکلی داره و اونم اینه که از سمت چپ متن رو تنظیم می‌کنه و من می‌خوام از سمت راست باشه؟

شاد باشید :لبخندساده:

[mjzaret]

از کد زیر هم می‌توان برای برنامه‌های زبان فارسی استفاده کرد که دکمه‌های اون هم به صورت فارسی نمایش داده می‌شوند.


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
T : TForm;
begin
T := CreateMessageDialog('آیا برای خروج اطمینان دارید؟',mtWarning,[mbYes,mbNo]);
T.Caption := 'اخطار';
T.BiDiMode := bdRightToLeft;
TButton(T.FindComponent('Yes')).Caption := 'بله';
TButton(T.FindComponent('No')).Caption := 'خیر';
T.ShowModal;
if T.ModalResult=mrNo then
CanClose:=False;
end;

شاد باشید :لبخندساده:

[hp1361]

سلام

پیشنهاد میکنم از مجموعه کامپوننت های i18n استفاده کنید. کامپوننت دیالوگ هم داره که کار رو خیلی ساده کرده.

موفق باشیم

[یوسف زالی]

این پست رو ببینید:
http://barnamenevis.org/showthread.php?454872-ShowMessage-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C%D8%8C-%D8%B1%D8%A7%D8%B3%D8%AA-%D8%A8%D9%87-%DA%86%D9%BE%D8%8C-%D9%87%D9%85%D8%B1%D8%A7%D9%87-%D8%A8%D8%A7-%D9%82%D8%A7%D8%A8%D9%84%DB%8C%D8%AA-%D9%87%D8%A7%DB%8C-%D8%AF%DB%8C%DA%AF%D8%B1&highlight=%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9% 86%D8%AA+%D9%85%D8%B3%DB%8C%D8%AC

قبل از ایجاد پست هم جستجو کنید. هر سوال هم در پست جداگانه قرار بدید.
موفق باشید.