Image1の上にコントロールをクリエートしたい (ID:21368)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 // 下記の状態で未定義エラーはないはずです。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) procedure labelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.labelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin // 略 end; end.