Прервать закрытие программы

Тема в разделе "Delphi - Система", создана пользователем acorn, 21 янв 2006.

  1. acorn

    acorn PHP Developer

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    Пользователь нажимает на крестик. Вызывается событие OnClose. Что в нем надо написать, чтобы прервать закрытие программы?
     
  2. zubr

    zubr Гость

    Код (Text):
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    //Проверка условий
    Action:=caNone;
    end;
    или
    Код (Text):
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
    CanClose:=False;
    end;
     
  3. TSnake

    TSnake Гость

    Можешь ещё и Alt+F4 блокировать:
    Код (Text):
    procedure TFormAbout.FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    begin
    if (Key = 115) and (Shift = [ssAlt]) then
    begin
    ShowMessage('Не надо так делать!');
    Key := 0;
    end;
    end;
     
  4. ltfriend

    ltfriend Гость

    OnClose срабатывает и на Alt+F4
     
Загрузка...

Поделиться этой страницей