[Andrey_R]

Доброго всем времени суток!
Задача элементарная, прошу ногами не бить, в кодинге не силен, рабочая необходимость заставила . Пытаюсь написать бразуер, который открывал бы мне опеределнную страницу сам. Гугл выдал решение такое:
Есть procedure Navigate(const URL: WideString); использовать так: WebBrowser1.Navigate(' http://delphi.vitpc.com/');
Тока вот не могу заставить все это работать

[NumLock]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.delphisources.ru/forum/showpost.php?p=87654&postcount=1');
  while WebBrowser1.ReadyState<READYSTATE_INTERACTIVE do Application.ProcessMessages;
end;

end.

[Andrey_R]

Спасибо за помощь. Тока что-то не фурычит
Запускаю, открывает белое окно формы TWB и усе, нету переходов на страницу.

[NumLock]

это работает?
http://data.cod.ru/123126

[Andrey_R]

Да, работает.

[NumLock]

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

Да, работает.

ну..у... а зачем до этого писал:

Тока что-то не фурычит

?
это тот же код, только уже скомпилированый.

[Andrey_R]

Толи я туплю, толи лыжи не едут. Действия по порядку:
1)На форму кидаем объект TWebBrowser
Переношу представленный тут код, компилю.
Получаю дулю

[Моклев]

нужно ещё создать событие TForm.Create
двойной клик по форме

[Andrey_R]

Спасибо!!! Мил человек