Когда программирование иногда, с целью необходимости, границы формы будет установлен на Bsnone, то есть без названия. Но таким образом, потому что без заглавной панели вы не можете перетащить форму. На самом деле, нам нужно только использовать следующий метод, чтобы плавно перетащить форму.
Добавлено на мероприятие OnmouseDown
Oldx: = x;
Старый: = u;
Добавлено на мероприятие OnmouseMove
Form1.left: = form1.left+x heldx;
Form1.top:=form1.top+yyy;
## 1 Создание кода выглядит следующим образом:
единица единицы 1;
интерфейс
Использование
Windows, сообщения, Sysutils, классы, графика, управления, формы, диалоги;
тип
Tform1 = class (tform)
Процедура FormuseDown (отправитель: Tobject; кнопка: tmousebutton;
Shift: tshiftState; x, y, целое число);
Процедура FormouseMove (отправитель: tobject; кнопка: tmousebutton;
Shift: tshiftState; x, y, целое число);
Частный
{Частные объявления}
публичный
Частные декларации}
конец;
вар
Форма1: tform1;
Oldx, Oldy: Integer;
Выполнение
$ R *.dfm}
Процедура tform1.formmousedown (отправитель: tobject; кнопка: tmousebutton;
Shift: tshiftState; x, y: целое число);
Начинать
Oldx: = x;
Старый: = y;
конец;
Процедура tform1.formmouseMove (отправитель: tobject; кнопка: tmousebutton
Shift: TshiftState; x,
Y: целое число);
Начинать
Если SSleft в сдвиге, то // нажимайте левую кнопку мыши
Начинать
Form1.left: = form1.left+x heldx;
Form1.top:=form1.top+yyy;
конец;
конец;
конец.
Кодекс Chemos был протестирован и прошел в Delphi5.0 и Win98 SE.