每日一帖示例程序（使用TWebBrowser基于HTML做）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, ComCtrls,
  ToolWin, Buttons, Menus, ImgList, IniFiles;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    mnuSystem: TMenuItem;
    mnuChangePsw: TMenuItem;
    mnuLogin: TMenuItem;
    N2: TMenuItem;
    mnuExit: TMenuItem;
    mnuEdit: TMenuItem;
    mnuCut: TMenuItem;
    mnuCopy: TMenuItem;
    mnuPaste: TMenuItem;
    mnuView: TMenuItem;
    mnuToolBarShow: TMenuItem;
    mnuStatusBarShow: TMenuItem;
    mnuTipsShow: TMenuItem;
    mnuTools: TMenuItem;
    mnuCheckUpdate: TMenuItem;
    N6: TMenuItem;
    mnuOA: TMenuItem;
    mnuCalcator: TMenuItem;
    mnuNotePad: TMenuItem;
    mnuCalendar: TMenuItem;
    mnuWindows: TMenuItem;
    mnuHorizontalTitle: TMenuItem;
    mnuVerticalTitle: TMenuItem;
    mnuCascade: TMenuItem;
    mnuArrangeIcons: TMenuItem;
    mnuHelp: TMenuItem;
    mnuHelpContents: TMenuItem;
    mnuAbout: TMenuItem;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Timer1: TTimer;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    pnlLeft: TPanel;
    pnlTips: TPanel;
    Image1: TImage;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    WebBrowser1: TWebBrowser;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mnuTipsShowClick(Sender: TObject);
    procedure TipTimerInit(Sender: TObject);
    procedure ShowNextTips(Sender: TObject);
    procedure pnlTipsResize(Sender: TObject);
  private
    IniSetting: TIniFile;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{========================================================================
  DESIGN BY :  彭国辉
  DATE:        2005-02-25
  SITE:         http://kacarton.yeah.net/
  BLOG:         http://blog.csdn.net/nhconch
  EMAIL:       kacarton#sohu.com

  文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！
=========================================================================}
procedure TForm1.FormCreate(Sender: TObject);
begin
    IniSetting := TIniFile.Create(ExtractFilePath(Application.ExeName) +  ‘setting.ini‘);
    pnlTips.Height := IniSetting.ReadInteger(‘Tips‘, ‘TipHeight‘, pnlTips.Height);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    IniSetting.WriteInteger(‘Tips‘, ‘TipHeight‘, pnlTips.Height);
    IniSetting.WriteInteger(‘Tips‘, ‘TipIndex‘, Timer2.Tag);
    IniSetting.WriteBool(‘Tips‘, ‘ShowTips‘, pnlTips.Visible);
    IniSetting.Free;
end;

procedure TForm1.mnuTipsShowClick(Sender: TObject);
begin
    pnlTips.Visible := not pnlTips.Visible;
    Splitter1.Visible := pnlTips.Visible;
    mnuTipsShow.Checked := pnlTips.Visible;
    IniSetting.WriteBool(‘Tips‘, ‘ShowTips‘, pnlTips.Visible);
    if pnlTips.Visible then begin
        WebBrowser1.Navigate(‘About:正在载入资料...‘);
        ShowNextTips(Timer2);
    end;
    Timer2.Enabled := pnlTips.Visible;
end;

procedure TForm1.TipTimerInit(Sender: TObject);
begin
    Timer2.Enabled := false;
    Timer2.OnTimer := ShowNextTips;
    Timer2.Interval := 12000;
    Timer2.Tag := IniSetting.ReadInteger(‘Tips‘, ‘TipIndex‘, 0);
    pnlTips.Tag := IniSetting.ReadInteger(‘Tips‘, ‘MaxIndex‘, 1);
    if IniSetting.ReadBool(‘Tips‘, ‘ShowTips‘, false) then mnuTipsShow.Click;
end;

//显示下一个操作提示内容
procedure TForm1.ShowNextTips(Sender: TObject);
begin
    Timer2.Tag := Timer2.Tag + 1;
    if (Timer2.Tag > pnlTips.Tag) or (not FileExists(ExtractFilePath(Application.ExeName)
        + ‘help/‘ + IntToStr(Timer2.Tag) + ‘.htm‘)) 
    then
        Timer2.Tag := 1;
    WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + ‘help/‘
        + IntToStr(Timer2.Tag) + ‘.htm‘);
end;

procedure TForm1.pnlTipsResize(Sender: TObject);
begin
    WebBrowser1.Height := pnlTips.Height - 16;
end;

end.