Скачать: CL | DM;

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

← →
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 и форма не будет закрыватьяс по нажатии на крестик в углу

---

← →
Zacho ©   (2003-11-12 21:02) [8]

> Prov © (12.11.03 20:55) [7]

Чего ???? Да, не перевелись еще извращенцы на Руси :-)))

---

← →
Vlad ©   (2003-11-12 21:14) [9]

> Prov © (12.11.03 20:55) [7]

Трава у тебя зачетная ! :)

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c