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

Остановка выхода   Найти похожие ветки 

← →
UserUserov   (2004-09-03 15:54) [0]

Кодеры!!Как можно можно остановить выход из программы при
нажатие крестика в углу формы. Скажем в многих прогах пре-
доставляется сообщение типа: "Вы точно хотите выйти" и нажав
Отмена программа не завершится. Если кто-то знает как
преостановить выход, то помогите!!!Спасибо!

---

← →
Erik1   (2004-09-03 15:58) [1]

Как насчет события OnCloseQuery + F1 ?

---

← →
UserUserov   (2004-09-03 16:02) [2]

Это че?

---

← →
Плохиш ©   (2004-09-03 16:03) [3]

> UserUserov   (03.09.04 16:02) [2]
> Это че?

Это означает, что тебе лучше переквалифицироваться в дворника

---

← →
clickmaker ©   (2004-09-03 16:04) [4]

> Если кто-то знает как
> преостановить выход, то помогите!!!Спасибо!

а как остановить вход, тебе не надо?

---

← →
UserUserov   (2004-09-03 16:05) [5]

Все начинали с малого

---

← →
ssk ©   (2004-09-03 16:15) [6]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if MessageBox(Form1.Handle, "Выйти?", "Выход",
               MB_ICONWARNING or MB_YESNO) = IDNO then
   CanClose := False;
end;

---

← →
BillyJeans   (2004-09-03 16:17) [7]

WM_CLOSE + F1

---

← →
Digitman ©   (2004-09-03 16:18) [8]

> нажав Отмена программа не завершится


эт что ж получается ? программа сама жмет "Отмену" ?

---

← →
clickmaker ©   (2004-09-03 16:18) [9]

begin
 if MessageBox(0, "Войти?", "Вход", MB_ICONWARNING or MB_YESNO) = IDNO then
   Exit;
 Application.Initialize;
 Application.Title := "Прога";
 Application.CreateForm(TMainForm, MainForm);
 Application.Run;
end.

---

← →
UserUserov   (2004-09-03 16:22) [10]

Спасибо, второе необязательно!

---

← →
Digitman ©   (2004-09-03 16:26) [11]

> второе необязательно


"А компот ?!" (С)

---

← →
UserUserov   (2004-09-03 16:30) [12]

С удовольствием!

---

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

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



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