掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スムーズに複数画像をマウスで一緒に動かすには (ID:40609)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
SetLength(PN,10-J); //押した画像より上の画像を一緒に動かすための処理 For I:=J to 9 do begin PN[I-J]:=TImage(IM[I]).Parent.ScreenToClient(TImage(IM[I]).ClientToScreen(Point(X, Y))) ; TImage(IM[I]).Left:=PN[I-J].X-Orgpoint.x; TImage(IM[I]).Top:=PN[I-J].Y-Orgpoint.y; end; ここなんですが、１枚ごとに描画しているからでは？ 一旦バックグラウンドに移動後の状態を描画して、 後で一気に表示すればマシになると思いますよ。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.