Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Ajuda!Como compilar delphi 2010?


HenriqueTOG
 Compartilhar

Posts Recomendados

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.

Link para o comentário
Compartilhar em outros sites

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.

qNfOUNn.pngrcZcLxp.png

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.