Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Вниз
Остановка выхода Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c
