Jak stworzyć dynamicznie TWebBrowser?

Mam taki kod:
procedure TForm1.Button1Click(Sender: TObject); var  WB : TWebBrowser; begin  WB := TWebBrowser.Creare(Self);  WB.Parent := Form1;  WB.Align := alClient;  WB.Show; end;

Wywala błędy:

[Error] Unit1.pas(28): Undeclared identifier: 'TWebBrowser'
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(32): Missing operator or semicolon
[Error] Unit1.pas(33): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Dlaczego?
Czy to jest związane z tym, że TWebBrowser jest kontrolką ActiveX ?
Użytkownik NowyGracz edytował ten post 28 marzec 2006, 17:35

---

Popraw kod:
procedure TForm1.Button1Click(Sender: TObject); var WB : TWebBrowser; begin WB := TWebBrowser.Create(Self); Form1.InsertControl(WB); WB.Align := alClient; WB.Show; end;
i dodaj do uses "SHDocVw" :)

Dodaj moduł SHDocVw.
Hmm... I z tym Parentem w WebBrowser coś nie tak...
Masz jeszcze jakby co literówkę:
WB := TWebBrowser.CreaTe(Self);

//edit: lukexpert mnie wyprzedził ;]
Użytkownik Coldpeer edytował ten post 28 marzec 2006, 17:45
Dzięki działa. :D

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl