![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ламерский вопрос
iguana © (2002-11-11 20:10:00)сорри за ламерский вопрос.
как перехватить событие onclose у окна и не дать его закрыть ?
^Sanya (2002-11-12 00:48:00) [1]
> Snap © (11.11.02 22:31)
если вопрос "ламерский", то окно, наверное, "своё" :)
Snap (2002-11-11 22:31:00) [2]НО это только если это твоё окно...
Diamond Cat (2002-11-11 22:28:00) [3]можно так же перехватывать сообщения типа wm_close, wm_destroy и т.д.
^Sanya (2002-11-11 20:29:00) [4]Если по-простому, то:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone
end;
ИЛИ:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False
end;
Alex44 (2002-11-11 20:16:00) [5]OnCloseQuery