4 replies to this topic

[malvescpv]

Ae pessoal sou novato em programaçao em Delphi...e gostaria da seguinte dica:
Como eu faço para criar um form com os recursos de que ao clicar em um determinado botão seja aberto uma pagina no proprio?
Espero que eu tenha sido claro
Malvescpv

[proteus_adi]

no proprio programa delphi?
tipo um frame contendo uma pagina?

usa o TWebBrowser [paleta internet]
ele tem o método navegate [se não me engano] que permite navegar..
rs...
ele é um browser!!!
acredito que talves vc tenha problemas com plugins.. nunca testei...

[The Tamer]

Olá gente,

Informação de como manipular o TWebBrowser, vc encontra neste link:

http://bdn.borland.c...0,27843,00.html

[gmps]

codigo bem simples

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    MainMenu1: TMainMenu;
    Arquivo1: TMenuItem;
    Sobre1: TMenuItem;
    SAir1: TMenuItem;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    cdrom1: TMenuItem;
    CDROOM1: TMenuItem;
    Abrir1: TMenuItem;
    Fechar1: TMenuItem;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure SAir1Click(Sender: TObject);
    procedure Sobre1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Fechar1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if pos('http://',edit1.Text)=0 then edit1.Text:='http://'+edit1.Text; 
  button1.Visible:=false;
  button2.Visible:=true;
  webbrowser1.Navigate(edit1.Text);
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  StatusBar1.Panels[0].Text:='  Status: Conectando...';
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:='  Status: Carregando...';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then button1.OnClick(sender);
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then button1.OnClick(sender);
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then button1.OnClick(sender);
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then button1.OnClick(sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  button1.Visible:=true;
  button2.Visible:=false;
  WebBrowser1.Stop;


end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  button1.Visible:=true;
  button2.Visible:=false;
  StatusBar1.Panels[0].Text:='  Status: Parado.';
end;

procedure TForm1.SAir1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Sobre1Click(Sender: TObject);
begin
form2.ShowModal;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

procedure TForm1.Abrir1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure TForm1.Fechar1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text := TimeToStr(Time);
StatusBar1.Panels[2].Text := DateToStr(Date);
end;

end.

[corvox]

No proprio Delphi vem com alguns exemplos e um desses exemplo é um navegador.