名前
題名
▼ 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が鳴るかもしれません。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link