Браузер для работы в глобальных сетях

  begin

    Handled := True;

    DuplicateTab1Click(nil);

    Exit;

  end;

     if IsChild(CurrentWB.Handle, Msg.Hwnd) then

  begin

    if (Msg.Message = WM_CLOSE) then

      msg.message := 0

    else

      if ((Msg.Message >= WM_KEYFIRST) and (Msg.Message <= WM_KEYLAST)) and

        ((Msg.wParam in StdKeys) or (GetKeyState(VK_CONTROL) < 0) or

        (Msg.wParam in ExtKeys) and ((Msg.lParam and fExtended) = fExtended)) then

      begin

        Handled := (CurrentWB.Application as IOleInPlaceActiveObject).TranslateAccelerator(Msg) = S_OK;

        if not Handled then

        begin

          Handled := True;

          TranslateMessage(Msg);

          DispatchMessage(Msg);

        end;

      end;

  end;

end;

  // О разработчике

procedure TfrmMyBrowser.N8Click(Sender: TObject);

begin

form2.Show;

end;

   // О программе

procedure TfrmMyBrowser.N10Click(Sender: TObject);

begin

form3.Color:=panel1.Color;

form3.ListBox1.Color:=panel1.Color;

form3.Show;

end;

 

initialization

  OleInitialize(nil);

  Set8087CW($133F);

 

finalization

  OleUninitialize

 

end.

Форма №2

Вторая форма имеет стандартный  код, созданный автоматически Delphi.

Форма №3

unit Unit3;

 

interface

 

uses

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

  Dialogs, StdCtrls, XPMan, Buttons, sBitBtn, sListBox, sLabel, ExtCtrls, jpeg;

 

type

  TForm3 = class(TForm)

    XPManifest1: TXPManifest;

    ОК: TsBitBtn;

    Image1: TImage;

    sLabelFX1: TsLabelFX;

    ListBox1: TsListBox;

    sLabelFX2: TsLabelFX;

    Label1: TLabel;

    procedure ОКClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.ОКClick(Sender: TObject);

begin

Form3.close;

end;

end.

Форма №4

unit Unit4;

 

interface

 

uses

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

  Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg, XPMan;

 

type

  TForm4 = class(TForm)

    Image1: TImage;

    ProgressBar1: TProgressBar;

    XPManifest1: TXPManifest;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

{$R *.dfm}

 

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

    AnimateWindow(handle, 200, AW_BLEND or aw_hide);  // анимация закрытия

end;

 

procedure TForm4.FormCreate(Sender: TObject);

var h:hrgn;

begin

     h:=createroundrectrgn(5,5,width,height,40,40);     // скругляем

     setwindowrgn(handle,h,true);

end;

 

procedure TForm4.FormShow(Sender: TObject);

var i:integer;

begin

     left:=trunc((screen.Width-image1.Width)/2);   // установка сплэш скрина

     top:=trunc((screen.Height-image1.Height)/2);    // по центру

     AnimateWindow(handle, 200, AW_BLEND);           // анимация

     for i:=ProgressBar1.Min to ProgressBar1.Max do  // крутим прогресс бар

         begin

            ProgressBar1.Position:=i;            // меняем позицию

            Application.ProcessMessages; // даем проге обработать сообщения,

                                            // в том числе на отрисовку

              Sleep(125);                        // замедляем прогрессбар

         end;

end;

end.

 

 

Форма №5

unit Unit5;

 

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, sBitBtn;

 

type

  TForm5 = class(TForm)

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

{$R *.dfm}

 // вывод HTML-кода в Memo из файла

procedure TForm5.FormCreate(Sender: TObject);

 var

   sl: TStringList;

 begin

  sl := TStringList.Create;

   try

     sl.LoadFromFile('test.dat');

     Memo1.SetSelText(PChar(sl.Text));

  finally

     sl.Free;

 end;

 end;

 

end.