掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スレッドについて (ID:16265)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
スレッドで VCL を操作するには、メソッド全体を Synchronize() で呼び出します。 type TMyThread = class(TThread) private protected procedure Execute; override; public procedure Method; end; TForm2 = class(TForm) private MyThread: TMyThread; public { Public 宣言 } end; var Form2: TForm2; MList: TStringList; procedure StartExecute; implementation {$R *.dfm} procedure StartExecute; begin // データ転送（アップロード・ダウンロード）開始 Form2.MyThread := TMyThread.Create(True); Form2.MyThread.Resume; // フォームを表示する Form2.ShowModal; end; procedure TMyThread.Method; begin ShowMessage(' ===== ' + IntToStr(MList.Count) + ' ===== ' + #13#10 + MList.Text); Form2.ModalResult := mrOk; end; procedure TMyThread.Execute; begin Synchronize(Method); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.