Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
ВнизНичего не пойму в какой части кода я ошибся??? Найти похожие ветки
← →
Till (2003-03-30 13:16) [0]Пытался сделать, вот чтобы при закрытии приложения пользователю выдавался запрос, "Вы действительно хотите выйти из программы?", и кнопка Иес, и НЕт :-)
ВОт запрос сделал вроде, но если даже давишь на Нет он все равно закрывает программу!!!
Помогите скажите где я ошибся???
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
CloseDlg : Boolean;
begin
CloseDlg := MessageDlg("Вы действительно хотите выйти из программы?"
,mtConfirmation,[mbYes,mbNo],0)=mrYes;
end;
← →
sniknik (2003-03-30 13:20) [1]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg("Вы действительно хотите выйти из программы?"
,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Action:=caNone;
end;
← →
Song (2003-03-30 13:55) [2]Проще в onCloseQuery.
CanClose:=MessageDlg(...,[mbYes,mbNo],0)=mrYes;
← →
Intell (2003-03-30 14:05) [3]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
begin
if MessageDlg("Вы действительно хотите выйти из программы?", mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true {Разрешаем завершение работы.}
else CanClose := false; {Не разрешаем завершение работы.}
end;
← →
Intell (2003-03-30 14:06) [4]Извини, опечатка, вот код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg("Вы действительно хотите выйти из программы?", mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true {Разрешаем завершение работы.}
else CanClose := false; {Не разрешаем завершение работы.}
end;
← →
Till (2003-03-30 16:53) [5]Спасибо Вам за помощь!!!!!
← →
Palladin (2003-03-30 17:00) [6]
> Intell © (30.03.03 14:06)
см Song © (30.03.03 13:55)
ты написал тоже самое...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.033 c