掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スムーズに複数画像をマウスで一緒に動かすには (ID:40610)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>S:=TImage(Sender).Name; //押した画像の名前 >J:=StrToInt(Copy(S,2,1)); //押した画像の番号を取得 押した画像 なので Down で判断する Move で移動の度に 判断する必要なし >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; PN 配列にする必要ないだろ？ For I:=J to 9 do begin PN :=TImage(IM[I]).Parent.ScreenToClient(TImage(IM[I]).ClientToScreen(Point(X, Y))) ; TImage(IM[I]).Left := PN.X-Orgpoint.x; TImage(IM[I]).Top := PN.Y-Orgpoint.y; 動的確保するなら Down で >マウスを左クリックした画像より上にある画像を一緒に動かすプログラムです 下の画像が一緒に動くのは内緒 そのまま動かしても スムーズ に動くけど・・・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.