掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数の名前だけを引数に渡して、関数を実行したい (ID:33870)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TZikkou = class(TComponent) public procedure Execute1; procedure Execute2(Sender: TObject); end; procedure TZikkou.Execute1; begin MessageBox(0,'Execute1','',0); Exit; end; procedure TZikkou.Execute2(Sender: TObject); begin MessageBox(0,'Execute2','',0); Exit; end; type TAProc = procedure of object; procedure TForm1.Example(X:Pointer); var Method: TMethod; begin Method.Data := TZikkou; Method.Code := X; TAProc(Method); end; procedure TForm1.Button1Click(Sender: TObject); begin Example(@TZikkou.Execute1); end; Createしなくても実行できたりするけど・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.