Как переназначить кнопку закрытия программы [x]?

← →
timself © (2007-03-01 01:06) [0]

Как сделать так, чтобы кнопка закрытия программы [ x ] выполняла другое (нужное мне) действие?
Я придумал следующий фэйк (и он в частном случае работает):
1. Выключаем переключатель:
var Form1: TForm1; a: boolean = false;
2. Делаем новый батон для закрытия проги:
procedure TForm1.Button1Click(Sender: TObject); begin a:=true; Сlose; end;
3. ...ну и далее:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if a then CanClose:=true else begin CanClose:=false; // ...а сюда пишем новое действие для кнопки [x] beep; end; end;Но эта уловка не всегда применима. А как поиметь реальный доступ к красной кнопке?

← →
Германн © (2007-03-01 01:24) [1]

> Но эта уловка не всегда применима.

Что значит "не всегда"?

← →
AndreyV © (2007-03-01 09:33) [2]

OnFormClose()?

← →
evvcom © (2007-03-01 10:58) [3]

> [0] timself © (01.03.07 01:06)
> if a then CanClose:=true else
> begin
> CanClose:=false;
> beep;
> end;

:)))
CanClose := a; if not a then beep;

← →
Vlad Oshin © (2007-03-01 14:34) [4]

программу могут закрыть минуя нажатие кнопки

а, ну а если все-таки интересует именно кнопка - то обработка сообщения WM_SYSCOMMAND спасет отца русской демократии :)

Благодарю, прблема решена

Как переназначить кнопку закрытия программы [x]? Найти похожие ветки