Ajuda!Como compilar delphi 2010?

[HenriqueTOG 0]

eu tava tentano fzer um navegador e na hora de compilar ( ctrl + f9) n acontece nada!

eu to fzeno algo errado?

uso o rad studio 2010.

segue o codido:

unit navegador;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, OleCtrls,

MOZILLACONTROLLib_TLB;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

Edit1: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

ProgressBar1: TProgressBar;

StatusBar1: TStatusBar;

SpeedButton3: TSpeedButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Web: TMozillaBrowser;

procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure SpeedButton3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure WebStatusTextChange(ASender: TObject; const Text: WideString);

procedure WebDownloadComplete(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

web.Refresh ;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

web.stop ;

end;

 

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=vk_return then

web.Navigate(Edit1.Text) ;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

web.GoBack ;

end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

web.GoForward ;

end;

 

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

web.Navigate(Edit1.Text) ;

end;

 

procedure TForm1.WebDownloadComplete(Sender: TObject);

begin

Edit1.Text := web.LocationURL;

end;

 

procedure TForm1.WebStatusTextChange(ASender: TObject; const Text: WideString);

begin

StatusBar1.SimpleText := Text;

end;

 

end.

[Vator 10]

:malvado:

[Sr.of Death 453]

Amigo tente colocar mais um end; no final!

 

unit navegador;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, OleCtrls,

MOZILLACONTROLLib_TLB;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

Edit1: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

ProgressBar1: TProgressBar;

StatusBar1: TStatusBar;

SpeedButton3: TSpeedButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Web: TMozillaBrowser;

procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure SpeedButton3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure WebStatusTextChange(ASender: TObject; const Text: WideString);

procedure WebDownloadComplete(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

web.Refresh ;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

web.stop ;

end;

 

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=vk_return then

web.Navigate(Edit1.Text) ;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

web.GoBack ;

end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

web.GoForward ;

end;

 

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

web.Navigate(Edit1.Text) ;

end;

 

procedure TForm1.WebDownloadComplete(Sender: TObject);

begin

Edit1.Text := web.LocationURL;

end;

 

procedure TForm1.WebStatusTextChange(ASender: TObject; const Text: WideString);

begin

StatusBar1.SimpleText := Text;

end;

end;

 

end.

[HenriqueTOG 0]

vo tenta aki

vlw =D

 

nem funcionoo

=,[

[Ryokusei 21]

Usa o botão de Play, se estiver desabilitado é pq vc tá trabalhando com um Form e não com um projeto de aplicativo.

[Mauro_Kilers 6]

:malvado:

 

Não faça comentários inúteis, atrapalha a visualização do tópico.

[josue1602 0]

Olhá Eu Não Sei Muito Bem Oq Deve Ser Mas Já Tentou Fazer Sem Usar o Mozilla Control ? Pode Ser Que O Erro Esteja Ai.

[HenriqueTOG 0]

usa o botão de play, se estiver desabilitado é pq vc tá trabalhando com um form e não com um projeto de aplicativo.

aaaaa!!

Era issso mesmo manowwwwwwww

vlw mesmo!!! =d

 

Olhá Eu Não Sei Muito Bem Oq Deve Ser Mas Já Tentou Fazer Sem Usar o Mozilla Control ? Pode Ser Que O Erro Esteja Ai.

 

n, o mozilla ta funfano direito, o problema esta descrito acima