|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#5
29.04.2009, 22:20
|
|||
|
|||
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin CanClose := MessageDlg('Вы действительно хотите выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=IDYes // по-английски CanClose := MessageBox(Application.Handle,'Вы действительно хотите выйти из программы?','Предупреждение',MB_YESNO)=ID_YES; //по-русски end; |
Древовидный вид