Ошибка в создании браузера

[vladimir98]

Вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, ComCtrls;

type
TForm1 = class(TForm)
pnl1: TPanel;
pb1: TProgressBar;
wb1: TWebBrowser;
img1: TImage;
img2: TImage;
img3: TImage;
edt1: TEdit;
img4: TImage;
img5: TImage;
procedure img1Click(Sender: TObject);
procedure img2Click(Sender: TObject);
procedure img3Click(Sender: TObject);
procedure img4Click(Sender: TObject);
procedure img5Click(Sender: TObject);
procedure wb1NavigateComplete2(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant);
procedure wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure wb1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.img1Click(Sender: TObject);
begin
WebBrowser1.GoBack
end;

procedure TForm1.img2Click(Sender: TObject);
begin
WebBrowser1.Refresh
end;

procedure TForm1.img3Click(Sender: TObject);
begin
Webbrowser1.GoForward
end;

procedure TForm1.img4Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit1.Text);
end;

procedure TForm1.img5Click(Sender: TObject);
begin
Webbrowser1.GoHome
end;

procedure TForm1.wb1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Edit1.Text:=URL;
end;

procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var newform:Tform1;
begin
ppdisp:=Webbrowser1.DefaultDispatch ;
newform:=TForm1.Create(self);
newform.Show;
ppdisp:=newform.Webbrowser1.Default Dispatch;
end;

procedure TForm1.wb1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
progressbar1.Max:=progressMax;
progressbar1.Positionrogress;
end;

end.

Вот скриншот:

[Utkin]

Ну ошибка и ошибка. Мы-то причем?
1. Код надо оформить как положено. Особого желания ковыряться в неформатированном тексте нет.
2. В каком месте ошибка, что за ошибка? Сама среда имеет свойство не только писать что ошибка, но еще и показывать код ошибки, ее содержание, а также строку в которой она содержится.
3. Не у всех есть шапочка телепата. Лично моя в ремонте - моль объелась нафталина и её стошнило на шапочку, поэтому временно мысли я читать не могу.

И лично меня настораживает это:

procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var newform:Tform1;
begin
ppdisp:=Webbrowser1.DefaultDispatch ;
newform:=TForm1.Create(self);
newform.Show;
ppdisp:=newform.Webbrowser1.Default Dispatch;
end;

Не знаю, может и правильно создавать TForm1 в TForm1 с точки зрения IDE, но c точки зрения проектирования приложения это как-то не по фень-шую. Особенно если Вы в качестве родителя TForm1 указываете TForm1.

[vladimir98]

Сообщение от Utkin

Ну ошибка и ошибка. Мы-то причем?
1. Код надо оформить как положено. Особого желания ковыряться в неформатированном тексте нет.
2. В каком месте ошибка, что за ошибка? Сама среда имеет свойство не только писать что ошибка, но еще и показывать код ошибки, ее содержание, а также строку в которой она содержится.
3. Не у всех есть шапочка телепата. Лично моя в ремонте - моль объелась нафталина и её стошнило на шапочку, поэтому временно мысли я читать не могу.

А что делать то с этим? Дельфы изучаю 1 день, код делал так же как в этом видео http://www.youtube.com/watch?v=8tlUfRGIV30

[northener]

vladimir98, у тебя нет Webbrowser1. У тебя есть wb1

[Utkin]

А что делать то с этим?

Вот внизу есть окошко, где все и написано:
"Неизвестный идентификатор WebBrowser1" Строка 46 и аналогично в строке 51.
И в конце оператора (кроме ряда случаев) ставят точку с запятой. У Вас даже на скрине где стоят, где не стоят.

[vladimir98]

Сообщение от northener

vladimir98, у тебя нет Webbrowser1. У тебя есть wb1

Изменил, сейчас в другом месте ошибка

[Utkin]

Изменил, сейчас в другом месте ошибка

В каком? Вы что издеваетесь? Мы за Вас тут по запаху ошибки находить должны? Прикладываете текст ошибки, если хотите помощи.

[vladimir98]

Сообщение от Utkin

В каком? Вы что издеваетесь? Мы за Вас тут по запаху ошибки находить должны? Прикладываете текст ошибки, если хотите помощи.

[Utkin]

Неизвестный идентификатор Edit1. У Вас на форме должен быть Edit1, он у Вас называется 'edt1'.
Аналогичная проблема с Прогрессбаром.
Там же все написано - копируйте ошибку и в гугло-переводчике переводите, если так не умеете.

[vladimir98]

Сообщение от Utkin

Неизвестный идентификатор Edit1. У Вас на форме должен быть Edit1, он у Вас называется 'edt1'.
Аналогичная проблема с Прогрессбаром.
Там же все написано - копируйте ошибку и в гугло-переводчике переводите, если так не умеете.

Окей спасибо,просто я дельфи изучаю 1 день