圖解CSS(1)先做一個樣式表測試載入器

本文配套源碼

工具非常簡單, 寫了 10 行左右的代碼; 運行效果圖:

代碼檔案:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, ExtCtrls, StdCtrls, ComCtrls, OleCtrls, SHDocVw;
type
　TForm1 = class(TForm)
　　Memo1: TMemo;
　　Splitter1: TSplitter;
　　Panel1: TPanel;
　　WebBrowser1: TWebBrowser;
　　procedure FormCreate(Sender: TObject);
　　procedure FormClose(Sender: TObject; var Action: TCloseAction);
　　procedure Memo1Change(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
　path: string;
begin
　Text := 'CssTest';
　WebBrowser1.Navigate('about:blank');
　Memo1.ScrollBars := ssBoth;
　with Memo1.Font do begin
　　Name := 'Verdana';
　　Size := 10;
　　Color := $000080;
　end;
　path := ChangeFileExt(ParamStr(0),'.dat');
　if FileExists(path) then ReadComponentResFile(path, Memo1);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
　WriteComponentResFile(ChangeFileExt(ParamStr(0),'.dat'), Memo1);
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
　WebBrowser1.Navigate('about:' + Memo1.Text);
end;
end.