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

Перехват (X)   Найти похожие ветки 

← →
Ivolg   (2003-11-03 18:12) [0]

Здравствуйте!Помогите пожайлуста!Как можно перехватить в своём приложении кнопку закрыть(X) и зделать так чтобы она выполняла
какую нибудь процедуру!Если есть у кого есть пример кинте сюда плиз!ВСЕМ БОЛЬШОЕ СПАСИБО!!!

---

← →
Юрий Зотов ©   (2003-11-03 18:15) [1]

Надо написать обработчик сообщения WM_SYSCOMMAND, а в нем проверять флаг SC_CLOSE. Примеров полно в VCL.

---

← →
Gero ©   (2003-11-03 18:17) [2]

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

---

← →
Regis ©   (2003-11-04 23:58) [3]

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

CanClose := false;
MyProcedure;

end;

Правда это будет срабатывать при любой попытке закрытия окна
(и системой тоже).

---

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

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



Память: 0.45 MB
Время: -0.972 c