掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TImageをマウスで移動するには？ (ID:29985)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
表裏未里さん、KHE00221さん いつもありがとうございます。 >TForm1MouseDownに書いて、Image1.Enableをfalse >という事は・・・・・両方設定 >procedure TForm1.ApplicationMessage どれも望みの動きをしてくれました。 Enableをfalseにすることで画像を表示したままで、下のFormの座標を取得できる事など、思いもしませんでした。 Messageの方は、私にとってはブラックボックスで、新しい課題と成りましたが・・・。 いつも、あまりにも早く教えていただけて、簡単に解ったような気になり、解決ボタンを押した後で、同じことが聞き難くなり後悔しています。 最初の例で、変数「I」は、ここでしか使っていないので・・・ procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var I:Integer; ・・・・・・・・・・・宣言の位置を変更 begin 以下省略 とすると・・・ [ヒント] Unit1.pas(67): 'I' に代入された値は使われていません [警告] Unit1.pas(55): 変数 'I' は初期化されない場合があります [警告]は良いにしても、Imageは移動してくれません。何故でしょう？ タイトルの質問とは別の問題なような気もしますが「Image1MouseDown」つながりという事で、これも宜しくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.