Скачать: CL | DM;

Как переназначить кнопку закрытия программы [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]

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

---

← →
Vlad Oshin ©   (2007-03-01 14:58) [5]

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

---

← →
timself ©   (2007-03-04 01:17) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c