掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数の名前だけを引数に渡して、関数を実行したい (ID:33874)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>procedure TForm1.Example(X:Pointer); >var > Method: TMethod; >begin > Method.Data := TZikkou; > Method.Code := X; > TAProc(Method); >end; こんなことしなくても type TAProc = procedure of object; procedure Execute(AProc: TAProc); begin AProc; end; procedure TForm4.Button3Click(Sender: TObject); begin Execute(Button2.Click); end; これだけでいいのか・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.