Delphi выход из программы только с кнопки

[Решетова Алена]

Здравствуйте, помогите пожалуйста.
Надо сделать так, чтобы выход из программы был только с кнопки (чтобы на крестик в правом верхнем углу не хакрывалось).

Из лабы: "Нужно запретить выход из программы стандартными способами, перехватив событие формы OnCloseQuery разрешив закрытие программы лишь в случае нажатия мышкой на клавишу "Выход"..."

Для кнопки я написала так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

Работало, до тех пор, пока я не написала для крестика. Пробовала разные варианты. 2 из них:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=caNone;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;

В обоих случаях форма не закрывалась ни на крестик ни на кнопку, вообще никак.

[Sciv]

Добавьте в прогу логическую переменную, которая определит, что закрытие формы происходит с кнопки.

public
  IsButton: boolean;

...
...


procedure TForm1.OnCreate(Sender: TObject);
begin
  IsButton:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IsButton:=true;
  Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not IsButton then action:=caNone;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  If not IsButton then CanClose:=false;
end;

[Sibedir]

procedure TForm1.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
  Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := ModalResult <> mrNone;
end;

[Решетова Алена]

Спасибо, спасибо)) Я уже нашла вариант)

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.tag:=1;
Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If Button1.tag=1 then CanClose:=true
Else CanClose:=false;
end;

[Решетова Алена]

Может кому пригодится)

[Sibedir]

Сама? Умничка
Не, серьёзно, Это всегда радует.

[Sciv]

Сама? Умничка
Не, серьёзно, Это всегда радует.

Присоединяюсь. Молодец! $)