Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?
Поиск
L


Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 5759
Комментариев на сайте: 623
Новый юзер: Marcushic



Последние комментарии
c
N0E0O7 прокомментировал "Урок 1 - Инициализация OpenGL":
А у меня форма чёрная запускается
dimonsky прокомментировал "Урок 2 - Простые примитивы":
GetDC(handle) вместо canvas.handle, и убрать вызов FormResize. Тогда получается конфетка.



Мы в соцсетях
c
Delphi
Запрет на закрытие формы

  Чтобы запретить пользователю закрывать форму обычным способом (нажатием на крестик), используйте этот код:

procedure TForm3.FormCreate(Sender: TObject);
Var
SysMenu: HMenu;
begin
SysMenu:=GetSystemMenu(Handle,False);
Windows.EnableMenuItem(SysMenu,SC_CLOSE,MF_DISABLED Or MF_GRAYED);
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 09 Июля 2012
Просмотров: 110908


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил: Denismen [Новичок] Дата: 2014-01-25
Этот сайт суперррр




аватар Добавил(а): ThunderLord [Новичок] Дата: 2014-04-14
А нельзя было так?: procedure TForm1.FormClose(Sender: TObject); begin Action:= caNone; end;