掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TWebBrowserとTDBGrid (ID:44758)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
本題に入る前にひとつ。 先のソースではCreateの引数をチェックしてませんでしたが、そこくらいは押さえておきたいので、 implementation 〜 コンストラクタまでのコードを以下のように変更します。 ----------------------------------------------------------------------------------------- implementation uses SysUtils, // class(Exception); AppEvnts, // TApplicationEvents ActiveX, // IOleInPlaceActiveObject Forms; // GetParentForm(TControl) type EArgumentNilException = class(Exception); constructor TWebBrowserFix.Create(AWebBrowser: TWebBrowser); begin if AWebBrowser=nil then raise EArgumentNilException.Create('Error TWebBrowser not Assigned.'); inherited Create(AWebBrowser); if MakeFixProc() then Exit; FDefOnNavigateComplete2:=TWebBrowser(Self.Owner).OnNavigateComplete2; TWebBrowser(Self.Owner).OnNavigateComplete2:=FirstTimeNaviComp2; end; -----------------------------------------------------------------------------------------
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.