掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントの移動 (ID:3617)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
単純に、それぞれのコンポーネントの「現在の位置」を基準として、 with component1 do begin Left := Left + x; Top := Top + y; end; with component2 do begin Left := Left + x; Top := Top + y; end; with component3 do begin Left := Left + x; Top := Top + y; end; ・・・ としていけばよいかと。 デザインと同じように、マウスダウン・マウス移動・マウスアップで移動するなら、 １．MouseDown時にマウス位置を保存。移動したいコンポーネントの位置を保存。マウスが押した状態を記憶(IsMouseDown:=True) ２．MouseMove時、IsMouseDown=Trueなら、保存してある位置と現在のマウス位置の差を、移動したいコンポーネントの「保存してある位置」に加える。 ３．MouseUp時にマウスを放した状態を記憶(IsMouseDown=False)。コンポーネントの位置を固定。 です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.