掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Image1の上にコントロールをクリエートしたい (ID:21363)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
この際答える様、えーと様、下記コードを追加して何とかCreateで生成されたShapeにマウスを移動するとその番号が表示されるという機能はテストプログラムでは見事に成功しました。（Type節にProcedure LabelMouseMoveを追加して）詳細な解説、具体的なコードをありがとうございます。 procedure TForm1.labelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var shape: TShape; begin shape:=Sender as TShape; //Tshapeじゃなければここで例外が発生します beep; edit1.Text:=inttostr(shape.tag); //shape.Left:= 0; end; ところがこれをテストプログラムから開発中のものに載せ変えると'未定義の識別子:LabelMouseMove' と出てきて通りません。Uses節も問題なさそうですしType節にも登録したしスペルの問題もなさそうです。どのような点をチェックすべきかを色々いじっていますが解決できません。チェックすべき箇所などアドバイスをいただければ幸甚です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.