Перетаскиваем форму не за заголовок - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Главная » Статьи » Delphi » Примеры на Delphi7

Перетаскиваем форму не за заголовок

Пример на Delphi, как перетаскивать мышкой форму Form1 не за заголовок procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin if (ssLeft in shift) then begin ReleaseCapture; Form1.Perform(wm_syscommand,$f012,0); end; end;
1 2 3 4 5 Категория: Примеры на Delphi7 \| Добавил: DelphiAiX (20.03.2011)
Просмотров: 1455 \| Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума