Delphi

Разработка сайтов

Автор:

Создайте событие onCloseQuery у формы:

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

Теперь не будут работать ни кнопка закрытия формы, ни ALT+F4.

Просмотров: 6009

Последние комментарии:

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.