Остановка выхода

← →
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]

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

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

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]

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

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

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

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

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

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