掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TImageをマウスで移動するには？ (ID：29984)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>Image1の外（Form1上）では、動いてくれません。 >TForm1MouseDownでは、肝心なImage1の上で動いてくれません。 Image1MouseDown は Image1でクリックすると実行されるので Form1でクリックしても実行されない TForm1MouseDown は Form1上でクリックすると実行されるので Image1でクリックしても実行されない という事は・・・・・両方設定すればいいんだけど？ ほかにコンポーネント等が増えると全てのコンポーネントに 設定しなくてはいけなくなるので procedure TForm1.ApplicationMessage(var Message: TMSG; var Handled: Boolean); var PT: TPoint; begin inherited; if Message.message = WM_LBUTTONDOWN then begin PT := ScreenToClient(Message.pt); Image1.Left := PT.x; Image1.Top := PT.y; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := ApplicationMessage; end; こんな感じにするといい感じ？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.