プログラミングの場合、時には必要な目的で、フォームのボーダーシルはBsnone、つまり無題のフォームに設定されます。しかし、このようにして、タイトルバーがなければフォームをドラッグできないからです。実際、フォームをスムーズにドラッグするには、次の方法を使用するだけです。
OnMousedownイベントに追加されました
Oldx：= x;
Oldy：= u;
OnMouseMoveイベントに追加されました
form1.Left：= form1.left+x-oldx;
form1.top:= form1.top+y-lythy;
## 1コード作成は次のとおりです。
ユニットユニット1;
インタフェース
用途
Windows、メッセージ、sysutils、クラス、グラフィックス、コントロール、フォーム、ダイアログ。
タイプ
tform1 = class（tform）
手順FormMousedown（送信者：tobject; button：tmousebutton;
シフト：tshiftState; x、y、integer）;
手順formmousemove（sender：tobject; button：tmousebutton;
シフト：tshiftState; x、y、integer）;
プライベート
{プライベート宣言}
公共
プライベート宣言}
終わり;
var
form1：tform1;
Oldx、Oldy：整数; //グローバル変数を定義します
実装
$ r *.dfm}
手順tform1.formmousedown（sender：tobject; button：tmousebutton;
シフト：tshiftstate; x、y：integer）;
始める
Oldx：= x;
Oldy：= y;
終わり;
手順tform1.formmousemove（sender：tobject; button：tmousebutton
シフト：tshiftstate; x、
Y：整数）;
始める
シフト中のssleftの場合、//左マウスボタンを押します
始める
form1.Left：= form1.left+x-oldx;
form1.top:= form1.top+y-lythy;
終わり;
終わり;
終わり。
化学コードは、Delphi5.0およびWin98 SEでテストされ、渡されました。