Закрытие окна

← →
pomka (2003-11-12 20:05) [0]

Привет! Подскажите мастера что должно стоять в коде после слов // нет ? Чтоб при
нажатии на крестик в верхнем правом углу формы, приложение не закрывалось?
Вот код:
procedure TForm1.FormMessages(var msg: TMessage);
begin
if msg.wParam = SC_CLOSE then
begin
IF (MessageBox(Application.handle,"Вы хотите выйти ? ", "Dairy",
MB_YESNO +MB_DEFBUTTON2+ MB_ICONINFORMATION)=IDYES) then
begin
//да
Form1.save;
Form1.Exit_Tray;
end
else begin
//нет
Inherited; // <- не помогает, форма закрывается :(
end;
end;
end;

← →
Zacho © (2003-11-12 20:24) [1]

> pomka (12.11.03 20:05)

А не проще ли использовать специально предназначенное для таких целей событие OnCloseQuery ?

← →
pomka (2003-11-12 20:37) [2]

незнаю! а как там выглядит код? а для этого примера бы :)

← →
Zacho © (2003-11-12 20:43) [3]

> pomka (12.11.03 20:37) [2]

А нажать F1 никак ?

← →
Zacho © (2003-11-12 20:44) [4]

Ладно, вот тебе код, причем прямо из хелпа:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg("Close the form?", mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then CanClose := False; end;

← →
pomka (2003-11-12 20:44) [5]

ненашел не че! API смотрел тоже

← →
Zacho © (2003-11-12 20:52) [6]

> pomka (12.11.03 20:44) [5]

Искать уметь надо. Help - Указатель - TForm - Events

← →
Prov © (2003-11-12 20:55) [7]

Нужно поставить OnCloseQuery: Application.Run и форма не будет закрыватьяс по нажатии на крестик в углу

← →
pomka (2003-11-12 21:14) [10]

Спасибо большое!!!

Закрытие окна Найти похожие ветки