TWebBrowserのParent…例外でストップ

解決

蜘蛛嫌いT 2005-01-10 04:59:48 No: 12632

Delphi6でTWebBrowserをCreateし、TForm1に表示しようとしましたが例外でストップしてしまいます。TOleControlを使用すると書いてあったサイトがあったのでその通りにしたところ
EAccessViolationクラスの例外と出、停止します
どなたかご教授お願いします

with TWebBrowser.Create(Self) do
   begin
      Align := AlClient;
      TOleControl(TWebBrowser).PArent := Self;
   end;

Mr.XRAY URL 2005-01-10 05:32:03 No: 12633

>TOleControl(TWebBrowser)

キャストする時は，具体的なオブジェクトに対して行います．

[例]

procedure TForm1.FormCreate(Sender: TObject);
var
     AWebB: TWebBrowser;
     AURL : String;
begin
     AURL:='http://homepage2.nifty.com/Mr_XRAY/';

     AWebB:=TWebBrowser.Create(Self);
     AWebB.Align := AlClient;
     TOleControl(AWebB).PArent := Self;
     AWebB.Navigate(AURL);
end;

蜘蛛嫌いT 2005-01-10 06:33:21 No: 12634

正常に動作しました。
ありがとうございました