Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Перехват (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 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c