マルチスレッドについて (ID:38495)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

実装状況がわからんのだが・・・

http://khe00221.image.coocan.jp/Component/ThreadTimer/ThreadTimer100.lzh

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ThreadTimer, StdCtrls;

type
  TForm5 = class(TForm)
    ThreadTimer1: TThreadTimer;
    ThreadTimer2: TThreadTimer;
    Button1: TButton;
    Memo1: TMemo;
    procedure ThreadTimer1Execute(Sender: TObject);
    procedure ThreadTimer2Execute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
    ThreadTimer1.Enabled := True;
    ThreadTimer1.Synchronize := False;

ThreadTimer2.Enabled := True;
    ThreadTimer2.Synchronize := True;
    ThreadTimer2.Interval := 1000;
end;

procedure TForm5.ThreadTimer1Execute(Sender: TObject);
begin
    Sleep(5000);
    Memo1.Lines.Add ('#');
end;

procedure TForm5.ThreadTimer2Execute(Sender: TObject);
begin
    Memo1.Lines.Add (TimeToStr(Now));
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る