svn/view/Unit2.pas

unit Unit2;

interface

uses
  System.Classes;

type
  TRensa = class(TThread)
  private
    { Private 宣言 }
  protected
    procedure Execute; override;
  end;

implementation

{
  重要: ビジュアル コンポーネントにおけるオブジェクトのメソッドとプロパティは、Synchronize を使って
  呼び出されるメソッドでのみ使用できます。たとえば、次のようになります。

  Synchronize(UpdateCaption);

  UpdateCaption は、たとえば次のようなコードになります。

  procedure TRensa.UpdateCaption;
  begin
  Form1.Caption := 'スレッドで更新されました';
  end;

  あるいは

  Synchronize(
  procedure
  begin
  Form1.Caption := '無名メソッドを通じてスレッドで更新されました'
  end
  )
  );

  ここでは、無名メソッドが渡されています。

  同様に、開発者は上記と同じようなパラメータで Queue メソッドを呼び出すことができます。
  ただし、別の TThread クラスを第 1 パラメータとして渡し、呼び出し元のスレッドを
  もう一方のスレッドでキューに入れます。

}

uses Unit1;

{ TRensa }

procedure TRensa.Execute;
var
  s: TPlayer;
begin
  { スレッドとして実行したいコードをここに記述してください }
  s := Form1.Player2;
  s.Com := true;
  s.Start(true);
  while Terminated = false do
  begin
    Synchronize(
      procedure
      begin
        Form1.FormPaint(s);
        s.Execute;
      end);
    if s.Sleeps = true then
      Sleep(100)
    else
      s.Sleeps:=true;
  end;
end;

end.