掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Panelを自由に移動するには？ (ID:29491)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Panelの上にImageを乗せていますか？ Panelとは別の場所にImageを作っていませんか？ Panelだけだと上記の上の部分 procedure TForm1.Panel1MouseDown(***）; procedure TForm1.Panel1MouseUp(***); procedure TForm1.Panel1MouseMove(***); の３つで動くことは確認できます。 Panelの上にImaageを乗せると Imageを通してPanelのMouse***イベントが届きませんので、 ImageのMouse***イベントを同様に書きます・・が・・・ procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var pt:TPoint; begin if bDrag = True then begin pt := Form1.ScreenToClient(Panel1.ClientToScreen(Point(X,Y))); Panel1.Left := pt.X - ptBegin.X; Panel1.Top := pt.Y - ptBegin.Y; end; end; の部分でImageではなくPanelの座標Ｘ・Ｙを変化させます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.