Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

Ничего не пойму в какой части кода я ошибся???   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
1-30442
zloy_dima
2003-03-31 11:30
2003.04.10
Указатели


3-30285
nkrainev
2003-03-21 20:16
2003.04.10
Подключение MySQL


14-30513
Феликс
2003-03-26 02:07
2003.04.10
Гы-гы! Надо же! И такое бывает.


7-30619
HardClubber
2003-02-16 15:18
2003.04.10
Состояние дверцы сидирома


7-30620
HardClubber
2003-02-15 21:25
2003.04.10
CD ROM. проиграть трэк