Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Delphi » Примеры на Delphi7

Запрещаем перемещение формы на Delphi7
После ключевого слова

Private
{ Private declarations }

Дописываем новую процедуру:

procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

После жмем комбинацию клавиш Ctrl+Shift+C Delphi генерирует пустую процедуру, после ключевого слова begin дописываем:

inherited;
with Message do
if Result = HTCAPTION then
Result := HTNOWHERE;

Все)))

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (17.05.2011) | Автор: AiX W
Просмотров: 1296 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]