TIWHRule     //一条横线, 对应 Html 中的 
    
TIWRectangle //矩形; 中间可以有行文本, 文本可任意对齐

---

TIWHRule 所在单元及继承链:

IWHTMLControls.TIWHRule < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

它没什么特别的成员, 下面是通过样式表把它改成红线:

---

procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWHRule1.Width := Width div 2;  IWHRule1.Height := 3;  IWHRule1.Left := (Width - IWHRule1.Width) div 2;  IWHRule1.Top := 60;  IWHRule1.Anchors := [akLeft, akTop, akRight];end;procedure TIWForm1.IWHRule1HTMLTag(ASender: TObject; ATag: TIWHTMLTag);begin  ATag.Params.Values['style'] := ATag.Params.Values['style'] + 'background-color: red; border:0;';end;

---

TIWRectangle 所在单元及继承链:

IWCompRectangle.TIWRectangle < TIWCustomRectangle < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property BorderOptions: TIWBorderOptions //边框选项; 主要是 Width 和 Colorproperty Color: TIWColor                 //矩形的颜色property Alignment: TAlignment           //文本水平对齐方式property VAlign: TIWVerticalAlignment    //文本垂直对齐方式property Text: TCaption                  //文本

---

示例:

---

procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWRectangle1.BorderOptions.Width := 1;  IWRectangle1.BorderOptions.Color := $0000FF;  IWRectangle1.Color := $F0E0E0;  IWRectangle1.Text := '万一的 Delphi 博客';  IWRectangle1.Font.Color := $0000FF;  IWRectangle1.Font.Size := 16;  IWRectangle1.Alignment := taCenter;  IWRectangle1.VAlign := vaMiddle;end;

---