名前 題名 ▼ takiさん > ▼ igyさん > > ▼ takiさん > > > 動的に生成したイベントの手続き、もしくは標準的なイベントでない？場合は > > > Form1.MethodAddress()がnilしか返してくれません。 > > > > > > ヘルプみたら、 > > > MethodAddress メソッドは，パブリッシュメソッドのアドレスを返します。 > > って書いてましたね。失礼しました。 > > > > なので、 > > > > > > TForm1 = class(TForm) > > Button1: TButton; > > Panel1: TPanel; > > Button2: TButton; > > procedure Button1Click(Sender: TObject); > > procedure Button2Click(Sender: TObject); > > procedure MyEvent(Sender: TObject); // <===== ここに移動 > > private > > { Private 宣言 } > > MyButton:TButton; > > function GetComponentByName(AName:String):TComponent; > > public > > { Public 宣言 } > > end; > > > > > > だったら、 Beepが鳴るかもしれません。 > > Beep鳴りました。 > ありがとうございます。 > > ヘルプの > 「名前を指定すると、クラス メソッドのアドレスを返します。」 > がパブリッシュメソッドの事だったのでしょうか。 > > とにかく、先が開けました。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link