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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 4
Всего онлайн: 4
Зарегистрировано юзеров: 6390
Комментариев на сайте: 640
Новый юзер: Arihelmshori



Последние комментарии
c
ilya5338k прокомментировал "Урок 22 - Принцип работы с файлами":
так и не понял что возвращают функции FileOpen и FileCreate
ufo26 прокомментировал "Урок 6 - Наложение текстур":
разобрался. нужно сохранить файл к себе в проект, а в разделе Uses указать имя файла без расширения.



Мы в соцсетях
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
Просмотров: 153571


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



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




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