Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MessageDlg [D7, WinXP]

glGLU © (2005-01-17 13:33:00)
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Rez: TModalResult;
begin
Rez:= MessageDlg('Закрыть программу?', mtWarning, [mbYes,mbNo],0);
if Rez= mrYes then exit;
if Rez= mrNo then ???;

remb (2005-01-17 21:12:00) [1]
if MessageDlg('Закрыть программу?', mtWarning, [mbYes,mbNo],0) = mrNo then Action:= caNone;

glGLU (2005-01-17 15:00:00) [2]
ALS © (17.01.05 14:27) [7]
спасибо
с
if Rez= mrNo then Action :=caNone
все работает

ALS (2005-01-17 14:27:00) [3]
Если очень хочется использовать именно OnClose, можно
if Rez= mrNo then Action :=caNone

Neznaika (2005-01-17 14:23:00) [4]
Согласен! Но програмка была простенькая и писалась для себя.
А этот код позволял ей работать дальше, и не пришлось заморачиваться.

Fay (2005-01-17 14:20:00) [5]
2 Neznaika © (17.01.05 13:56) [4]
Очень странное решение. Да и не решение это вовсе 8)

Neznaika (2005-01-17 13:56:00) [6]
А я просто делал Application.Run и все продолжало работать......

Erik1 (2005-01-17 13:38:00) [7]
Надо вызывать диалог в другом событии OnCloseQuery. type TCloseQueryEvent = procedure(Sender: TObject; var CanClose: Boolean) of object;
property OnCloseQuery: TCloseQueryEvent;
Думаю, что надо присвоить в CanClose понятно.

Fay (2005-01-17 13:37:00) [8]
OnCloseQuery

glGLU (2005-01-17 13:34:00) [9]
Как сделать чтобы после того как нажали No программа не закрывалась?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »