スレッドがマウスイベントで止まらないようにするには？ (ID:40229)

名前

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

本文 tor様、 >> TForm2 = class(TThread) >スレッドなのにTForm2という名前なのですね 名前が紛らわしいのですが、Unit2.pasでは type TForm2 = class(TThread) private .... function GetData: boolean; .... protected procedure Execute; override; public ... end; 以外に、 type TForm2Thread = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private DatWriteFlag: integer; DatReadFlag: integer; ... .. public end; を定義しています。 FormCreateでは通信ポートを開けて、FormDestroyではポートを閉じる処理をしています。