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
Web Browser Em Delphi
Started By malvescpv, 06/01/2005, 17:43
4 replies to this topic
#1
Posted 06/01/2005, 17:43
#2
Posted 06/01/2005, 17:54
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...
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...
PROTEUS [ADSUMUS]
ETERNAL ########
---------------------------------------------------------------
"Já dizia o mestre: PROGRAMAR é diferente de CODIFICAR"...
ETERNAL ########
---------------------------------------------------------------
"Já dizia o mestre: PROGRAMAR é diferente de CODIFICAR"...
#3
Posted 11/01/2005, 08:27
Olá gente,
Informação de como manipular o TWebBrowser, vc encontra neste link:
http://bdn.borland.c...0,27843,00.html
Informação de como manipular o TWebBrowser, vc encontra neste link:
http://bdn.borland.c...0,27843,00.html
__________________________________________
The Tamer
Quando morrer, escrevam em minha lápide: </life>
Blog: http://www.dtsoftware.eti.br/
MCWD - Macromedia Certified Web Designer MX
The Tamer
Quando morrer, escrevam em minha lápide: </life>
Blog: http://www.dtsoftware.eti.br/
MCWD - Macromedia Certified Web Designer MX
#4
Posted 20/02/2005, 15:12
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.
"Se você não puder ajudar, atrapalhe; afinal, o importante é participar..."
#5
Posted 02/03/2005, 16:17
No proprio Delphi vem com alguns exemplos e um desses exemplo é um navegador.
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)