使用 IntraWeb (12) - 基本控件之 TIWGradButton、TIWImageButton

TIWGradButton、TIWImageButton 分别是有颜色梯度变化按钮和图像按钮.

---

TIWGradButton 所在单元及继承链:
IWCompGradButton.TIWGradButton < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property Style: TIWGradButtonStyle  //

---

这个 Style 不大好调配, 可以复制官方示例中的设置:
object IWGradButton1: TIWGradButton Left = 48 Top = 40 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 1051800 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 2366701 Style.Button.ToColor = 1512362 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 1775049 Style.ButtonHover.ToColor = 1380769 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 1512362 Style.ButtonActive.ToColor = 2366701 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csRed Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Red' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton1' ScriptEvents = <> TabOrder = 0 end object IWGradButton2: TIWGradButton Left = 48 Top = 96 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 10712576 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 15641856 Style.Button.ToColor = 10844160 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 13407488 Style.ButtonHover.ToColor = 9332480 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 10844160 Style.ButtonActive.ToColor = 15641856 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csBlue Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Blue' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton2' ScriptEvents = <> TabOrder = 1 end object IWGradButton3: TIWGradButton Left = 48 Top = 152 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 1213267 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 3127165 Style.Button.ToColor = 949582 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 2661739 Style.ButtonHover.ToColor = 813891 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 949582 Style.ButtonActive.ToColor = 3127165 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csGreen Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Green' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton3' ScriptEvents = <> TabOrder = 2 end object IWGradButton4: TIWGradButton Left = 48 Top = 208 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 1901175 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 2687913 Style.Button.ToColor = 1638509 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 852026 Style.ButtonHover.ToColor = 1901175 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 1638509 Style.ButtonActive.ToColor = 2687913 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csMaroon Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Maroon' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton4' ScriptEvents = <> TabOrder = 3 end object IWGradButton5: TIWGradButton Left = 248 Top = 152 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 818394 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 1746426 Style.Button.ToColor = 2128628 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 1150712 Style.ButtonHover.ToColor = 1401072 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 2128628 Style.ButtonActive.ToColor = 1746426 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csOrange Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Orange' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton5' ScriptEvents = <> TabOrder = 4 end object IWGradButton6: TIWGradButton Left = 248 Top = 208 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 10384082 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 13873662 Style.Button.ToColor = 11235825 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 13347572 Style.ButtonHover.ToColor = 10775784 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 11235825 Style.ButtonActive.ToColor = 13873662 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csPink Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Pink' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton6' ScriptEvents = <> TabOrder = 5 end object IWGradButton7: TIWGradButton Left = 248 Top = 40 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 6771273 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = clWebLIGHTSLATEGRAY Style.Button.ToColor = 7031871 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 4928812 Style.ButtonHover.ToColor = 6968395 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 7031871 Style.ButtonActive.ToColor = clWebLIGHTSLATEGRAY Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csGray Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Gray' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton7' ScriptEvents = <> TabOrder = 6 end object IWGradButton8: TIWGradButton Left = 448 Top = 40 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 10712576 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 15641856 Style.Button.ToColor = 10844160 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 13407488 Style.ButtonHover.ToColor = 9332480 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 10844160 Style.ButtonActive.ToColor = 15641856 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csBlue Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Disabled' Enabled = False Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton7' ScriptEvents = <> TabOrder = 7 end object IWGradButton9: TIWGradButton Left = 448 Top = 96 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 1051800 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 2366701 Style.Button.ToColor = 1512362 Style.Button.BorderRadius = 5 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 1775049 Style.ButtonHover.ToColor = 1380769 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 1512362 Style.ButtonActive.ToColor = 2366701 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csRed Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Rounded corners' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton9' ScriptEvents = <> TabOrder = 8 end object IWGradButton10: TIWGradButton Left = 248 Top = 96 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 6771273 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebBLUE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = clWebGREENYELLOW Style.Button.ToColor = clWebYELLOW Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 4928812 Style.ButtonHover.ToColor = 6968395 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 7031871 Style.ButtonActive.ToColor = clWebLIGHTSLATEGRAY Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csCustom Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Custom colors' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton7' ScriptEvents = <> TabOrder = 9 end object IWGradButton11: TIWGradButton Left = 448 Top = 152 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 10384082 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 13873662 Style.Button.ToColor = 11235825 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 13347572 Style.ButtonHover.ToColor = 10775784 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 11235825 Style.ButtonActive.ToColor = 13873662 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csPink Style.BoxShadow.HShadow = 3 Style.BoxShadow.VShadow = 3 Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Box Shadow' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton11' ScriptEvents = <> TabOrder = 10 end object IWGradButton12: TIWGradButton Left = 448 Top = 208 Width = 140 Height = 36 Cursor = crAuto ParentShowHint = False ShowHint = True ZIndex = 0 RenderSize = True Style.Border.Color = 818394 Style.Border.Width = 1 Style.BorderDisabled.Color = clWebGRAY Style.BorderDisabled.Width = 1 Style.Button.Alignment = taCenter Style.Button.Font.Color = clWebWHITE Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.Button.Font.Size = 10 Style.Button.Font.Style = [] Style.Button.FromColor = 1746426 Style.Button.ToColor = 2128628 Style.ButtonHover.Alignment = taCenter Style.ButtonHover.Font.Color = clWebWHITE Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonHover.Font.Size = 10 Style.ButtonHover.Font.Style = [] Style.ButtonHover.FromColor = 1150712 Style.ButtonHover.ToColor = 1401072 Style.ButtonActive.Alignment = taCenter Style.ButtonActive.Font.Color = clWebWHITE Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonActive.Font.Size = 10 Style.ButtonActive.Font.Style = [] Style.ButtonActive.FromColor = 2128628 Style.ButtonActive.ToColor = 1746426 Style.ButtonDisabled.Alignment = taCenter Style.ButtonDisabled.Font.Color = clWebWHITE Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana' Style.ButtonDisabled.Font.Size = 10 Style.ButtonDisabled.Font.Style = [] Style.ButtonDisabled.FromColor = clWebLIGHTGRAY Style.ButtonDisabled.ToColor = 7368816 Style.ColorScheme = csOrange Style.BoxShadow.ColorTransparency = 0.500000000000000000 Style.TextShadow.HShadow = 3 Style.TextShadow.VShadow = 3 Style.TextShadow.ColorTransparency = 0.500000000000000000 Caption = 'Text Shadow' Color = clBtnFace Font.Color = clNone Font.Size = 10 Font.Style = [] FriendlyName = 'IWGradButton12' ScriptEvents = <> TabOrder = 11 end

效果图:

---

TIWImageButton 所在单元及继承链:
IWCompExtCtrls.TIWImageButton < TIWImageFile < TIWCustomImage < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property ImageFile: TIWFileReference    //图像

property HotImageFile: TIWFileReference //当鼠标指向时显示的图像

---

测试代码:

---

procedure TIWForm1.IWAppFormCreate(Sender: TObject);

begin

  IWImageButton1.ImageFile.Filename := 'pic1.png'; //pic1.png、pic2.png 放在 wwwroot 目录下

  IWImageButton1.HotImageFile.Filename := 'pic2.png';

end;



procedure TIWForm1.IWImageButton1Click(Sender: TObject);

begin

  WebApplication.GoToURL('http://del.cnblogs.com');

end;

---