Текущий архив: 2003.11.13;
Скачать: 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 вся ветка
Текущий архив: 2003.11.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.07 c
