Показать сообщение отдельно

  #4237  
Старый 26.08.2009, 17:58
s0l_ir0n
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
С нами: 9031410

Репутация: 314
По умолчанию

Цитата:
Сообщение от НTL  
Как при событии TForm1.FormClose отменить закрытие формы?

Exit не работает, в гугле по этой теме много мусора
В гугле много инфы

Код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;
еще можно в OnClose прописать:
Код:
action:=caNone;
-
[edited]
Спасибо тому доброму человеку, который поставил мне -20 за этот пост. Чмаке, детка
[/edited]

Последний раз редактировалось s0l_ir0n; 26.08.2009 в 19:12..
 
Ответить с цитированием