Threadオブジェクトからformオブジェクトにアクセスできない (ID：33304)

名前

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

本文

お世話になっております。
ヤマダです。

その後も調査し続けた結果どうやらThreadが関係していなことが
わかりました。

ShowMessage(InTToStr(self.sList.count));        //こちらだと8
ShowMessage(InTToStr(MainForm.sList.count));    //こちらだと0

self(:TMainForm)経由とMainForm変数(:TMainForm)経由で
結果が変わっていたみたいです。

何かものすごい勘違いをしているのかもしれません。

いったんこれで解決とさせていただきます。
にしの様、検証までしていただいたのに申し訳ございませんでした。

以上  宜しくお願いいたします。

procedure TMainForm.miImportClick(Sender: TObject);
begin
  AppInfo.ImportDir := BrowseForFolder('ディレクトリ選択','',true);
  if AppInfo.ImportDir <> '' then begin
    self.getImportList(fileList,appInfo.ImportDir);
    self.addNodeforPic;

ShowMessage(IntToStr(self.fileList.Count));   //ここで8を出力
    ShowMessage(InTToStr(MainForm.sList.count));    //こちらだと0
    self.FThreadImport := TImportFileThread.Create(false);

self.FThreadImport.Priority := tpLowest;
    self.FThreadImport.OnTerminate := self.importDone;
    self.FThreadImport.FreeOnTerminate := true;
    self.StatusBar.Panels[0].Text := 'Import中です・・・・';
  end;

end;

ShowMessage(InTToStr(self.sList.count));
    ShowMessage(InTToStr(MainForm.sList.count));

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

戻る