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

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

CanClose := false;
MyProcedure;

end;

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

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