如何编写网页浏览器

Question

我想编写网络浏览器，但不知道用什么控件。请帮帮忙。

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdEMailAddress, Buttons, ComCtrls,MAPI;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    txtTo: TEdit;
    txtCC: TEdit;
    txtBCC: TEdit;
    txtAttachment: TEdit;
    txtSubject: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;const
  RECIP_MAX = MaxInt div Sizeof(TMapiRecipDesc);
  ATTACH_MAX = MaxInt div Sizeof(TMapiFileDesc);type
  TRecipAccessArray = array[0..(RECIP_MAX - 1)] of TMapiRecipDesc;
  TlpRecipArray=^TRecipAccessArray;
  TattachAccessArray = array[0..(ATTACH_MAX - 1)] of TMapiFileDesc;
  TlpAttachArray = ^TAttachAccessArray;
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
  err:ULONG;
  AnyStr:PChar;
  nAttachments,
  nRecipients:Cardinal;
begin
  if(txtTo.Text <> '') and (txtSubject.Text <> '')and
     (Memo1.Lines.Count > 0) then
  begin
    nAttachments := 1;
    nRecipients := 0;
    if txtTo.Text <> '' then
      Inc(nRecipients);
    if txtCC.Text <> '' then
      Inc(nRecipients);
    if txtBCC.Text <> '' then
      Inc(nRecipients);
    FillChar(lppMapiRecipDesc,SizeOf(TMapiRecipDesc),0);
    lparrayRecips
end;end.

Answer 2

控件
  Internet页下的webbrowser控件使用
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('www.eyou.com');
end;

Answer 3

up,如果一般的功能，用webbrowser控件就够了，如果你想自己做点什么，那就麻烦点，自己写写一个了。