Текущий архив: 2005.01.30;
Скачать: CL | DM;
Вниз
MessageDlg Найти похожие ветки
← →
glGLU © (2005-01-17 13:33) [0]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 ???;
← →
glGLU © (2005-01-17 13:34) [1]Как сделать чтобы после того как нажали No программа не закрывалась?
← →
Fay © (2005-01-17 13:37) [2]OnCloseQuery
← →
Erik1 © (2005-01-17 13:38) [3]Надо вызывать диалог в другом событии OnCloseQuery. type TCloseQueryEvent = procedure(Sender: TObject; var CanClose: Boolean) of object;
property OnCloseQuery: TCloseQueryEvent;
Думаю, что надо присвоить в CanClose понятно.
← →
Neznaika © (2005-01-17 13:56) [4]А я просто делал Application.Run и все продолжало работать......
← →
Fay © (2005-01-17 14:20) [5]2 Neznaika © (17.01.05 13:56) [4]
Очень странное решение. Да и не решение это вовсе 8)
← →
Neznaika © (2005-01-17 14:23) [6]Согласен! Но програмка была простенькая и писалась для себя.
А этот код позволял ей работать дальше, и не пришлось заморачиваться.
← →
ALS © (2005-01-17 14:27) [7]Если очень хочется использовать именно OnClose, можно
if Rez= mrNo then Action :=caNone
← →
glGLU © (2005-01-17 15:00) [8]ALS © (17.01.05 14:27) [7]
спасибо
с
if Rez= mrNo then Action :=caNone
все работает
← →
remb (2005-01-17 21:12) [9]if MessageDlg("Закрыть программу?", mtWarning, [mbYes,mbNo],0) = mrNo then Action:= caNone;
Страницы: 1 вся ветка
Текущий архив: 2005.01.30;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.049 c
