Delphi

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

Автор: Борисов Сергей

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

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

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

Имитация бруса

Подборка новостей и статей о строительстве. Беседок и др.

http://www.wood-projekt.ru/imitaciya.html

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

On-line статистика:

Онлайн всего: 3

Гостей: 3

Пользователей: 0

Статистика:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

Логин:
Пароль: