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]

Согласен! Но програмка была простенькая и писалась для себя.
А этот код позволял ей работать дальше, и не пришлось заморачиваться.

Если очень хочется использовать именно OnClose, можно
if Rez= mrNo then Action :=caNone

← →
remb (2005-01-17 21:12) [9]

if MessageDlg("Закрыть программу?", mtWarning, [mbYes,mbNo],0) = mrNo then Action:= caNone;

MessageDlg Найти похожие ветки