| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Остановка выхода [D7]
UserUserov © (2004-09-03 15:54:00)Кодеры!!Как можно можно остановить выход из программы при
нажатие крестика в углу формы. Скажем в многих прогах пре-
доставляется сообщение типа: "Вы точно хотите выйти" и нажав
Отмена программа не завершится. Если кто-то знает как
преостановить выход, то помогите!!! Спасибо!
UserUserov (2004-09-03 16:30:00) [1]С удовольствием!
Digitman (2004-09-03 16:26:00) [2]
> второе необязательно
"А компот ?!" (С)
UserUserov (2004-09-03 16:22:00) [3]Спасибо, второе необязательно!
Digitman (2004-09-03 16:18:00) [4]
> нажав Отмена программа не завершится
эт что ж получается ? программа сама жмет "Отмену" ?
clickmaker (2004-09-03 16:18:00) [5]
begin
if MessageBox(0, 'Войти?', 'Вход', MB_ICONWARNING or MB_YESNO) = IDNO then
Exit;
Application.Initialize;
Application.Title := 'Прога';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
BillyJeans (2004-09-03 16:17:00) [6]WM_CLOSE + F1
ssk (2004-09-03 16:15:00) [7]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(Form1.Handle, 'Выйти?', 'Выход',
MB_ICONWARNING or MB_YESNO) = IDNO then
CanClose := False;
end;
UserUserov (2004-09-03 16:05:00) [8]Все начинали с малого
clickmaker (2004-09-03 16:04:00) [9]
> Если кто-то знает как
> преостановить выход, то помогите!!!Спасибо!
а как остановить вход, тебе не надо?
Плохиш (2004-09-03 16:03:00) [10]
> UserUserov (03.09.04 16:02) [2]
> Это че?
Это означает, что тебе лучше переквалифицироваться в дворника
UserUserov (2004-09-03 16:02:00) [11]Это че?
Erik1 (2004-09-03 15:58:00) [12]Как насчет события OnCloseQuery + F1 ?
| |
