一直沒有把樣式表系統一下, 春節假期有空, 不能再等了.

為了方便學習, 先寫了一個樣式表測試工具: CssTest(點擊下載)

---

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

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls, ComCtrls, OleCtrls, SHDocVw;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); varpath: string; beginText := 'CssTest';WebBrowser1.Navigate('about:blank');Memo1.ScrollBars := ssBoth;with Memo1.Font do beginName := '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); beginWriteComponentResFile(ChangeFileExt(ParamStr(0),'.dat'), Memo1); end;procedure TForm1.Memo1Change(Sender: TObject); beginWebBrowser1.Navigate('about:' + Memo1.Text); end;end.
窗體文件:

---

object Form1: TForm1Left = 0Top = 0ActiveControl = Memo1Caption = 'Form1'ClientHeight = 231ClientWidth = 439Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnClose = FormCloseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Splitter1: TSplitterLeft = 241Top = 0Height = 231MinSize = 1ExplicitLeft = 219ExplicitHeight = 196endobject Memo1: TMemoLeft = 0Top = 0Width = 241Height = 231Align = alLeftLines.Strings = ('Memo1')TabOrder = 0OnChange = Memo1Changeendobject Panel1: TPanelLeft = 244Top = 0Width = 195Height = 231Align = alClientBevelOuter = bvNoneCaption = 'Panel1'TabOrder = 1object WebBrowser1: TWebBrowserLeft = 0Top = 0Width = 195Height = 231Align = alClientTabOrder = 0ExplicitLeft = 88ExplicitTop = 88ExplicitWidth = 300ExplicitHeight = 150ControlData = {4C00000027140000E01700000000000000000000000000000000000000000000000000004C000000000000000000000001000000E0D057007335CF11AE6908002B2E126208000000000000004C0000000114020000000000C000000000000046800000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000}endend end

轉載于:https://www.cnblogs.com/del/archive/2009/01/28/1381184.html

總結

以上是生活随笔為你收集整理的图解 CSS (1): 先做一个样式表测试工具的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。