掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TWebBrowser上のExcelの再描画 (ID：25329)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません。調査不足でした。 普通にForm2.Showでは、現象は、起きませんでした。 しかし、Form2にWebBrowserを配置、Form1とは、別の Excelファイルを用意してForm2のFormShowで TWebBrowser上に表示させると Form1のExcelのコマンドバーがクリックできなくなったり スクロールバーが無くなったり・・・ Excelが二つ起動しているのが問題なのでしょうか？ ｛Form1での処理 最初の発言のURL参照｝ procedure TForm1.BitBtn1Click(Sender: TObject); var FilePath : String; begin ExcelApplication1.Connect; FilePath := ExtractFilePath(Application.ExeName)+'a.xls'; WebBrowser1.Offline:=True; WebBrowser1.Silent:=True; try WebBrowser1.Navigate(FilePath); except end; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin Form2.Show; end; ｛Form2での処理｝ procedure TForm2.FormShow(Sender: TObject); var FilePath : String; begin ExcelApplication1.Connect; FilePath := ExtractFilePath(Application.ExeName)+'b.xls'; WebBrowser1.Offline:=True; WebBrowser1.Silent:=True; try WebBrowser1.Navigate(FilePath); except end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.