u_showhtmlfrm.~pas

来自「给一个企业做的产品展示系统,很好的展示了产品的各种功能」· ~PAS 代码 · 共 49 行

unit U_ShowHtmlFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, OleCtrls, SHDocVw;

type
  TShowHtmlFrm = class(TForm)
    Panel1: TPanel;
    RzPanel1: TRzPanel;
    ScrollBox: TScrollBox;
    wbPreview: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShowHtmlFrm: TShowHtmlFrm;

implementation

{$R *.dfm}

procedure TShowHtmlFrm.FormCreate(Sender: TObject);
var
 HtmlPath: String;
begin
 Self.Top := 1;
 Self.Left := (Screen.Width - Self.Width) div 2;;
 Self.Height := Screen.Height - 38;
 try
   HtmlPath := ExtractFilePath(application.ExeName) + 'html\about.html';
   Screen.Cursor := crHourGlass;
   application.ProcessMessages;
   wbPreview.Stop;
   application.ProcessMessages;
   wbPreview.Navigate(HtmlPath);
 finally
   Screen.Cursor := crDefault;
 end;
end;

end.