Delphi の TThread.CreateAnonymousThread で ReturnValue を取得する
スレッドの SetReturnValueで投入した値を、取得するには ReturnValue か WaitFor を使うが、無名メソッド TThread.CreateAnonymousThread の戻り値は TThread なため Protected で宣言された ReturnValue メンバへアクセスできない ※OnTerminate で WaitFor を呼び出すとスレッド終了を待ってしまうため、永久に応答しなくなるので注意 TThreadを継承したクラス(上記では TDummyThread)を介して、ReturnValue へアクセス可 type TDummyThraed = class(TThread); AThread := TThread.CreateAnonymousThread(... // : TDummyThraed(AThread).ReturnValue