Intraweb下如何按一个一键启动按钮怎么打开后，新打开一个窗口
点击联系发帖人
时间：2018-07-29 22:01
随笔 - 2146&
文章 - 96&评论 - 11754&trackbacks - 253
GetWindowText(
hWnd: HWND;
{窗口句柄}
lpString: PC
{接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
{返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
arr: array[0..254] of C
GetWindowText(Handle, @arr, SizeOf(arr));
ShowMessage(arr); {Form1}
//标题文本个数:
arr: array[0..254] of C
num := GetWindowText(Handle, arr, SizeOf(arr));
ShowMessage(IntToStr(num)); {5}
阅读(...) 评论()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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
Style.ButtonHover.ToColor =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
Style.ButtonHover.ToColor =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.HShadow = 3 Style.TextShadow.VShadow = 3 Style.TextShadow.ColorTransparency = 0.000000 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);
IWImageButton1.ImageFile.Filename := 'pic1.png'; //pic1.png、pic2.png 放在 wwwroot 目录下
IWImageButton1.HotImageFile.Filename := 'pic2.png';
procedure TIWForm1.IWImageButton1Click(Sender: TObject);
WebApplication.GoToURL('http://del.cnblogs.com');
本文转载自：http://www.cnblogs.com/del/p/3780801.html
人打赏支持
码字总数 14107
TMS IntraWeb Component Pack Pro Script Edition允许从Delphi IDE直接在IntraWeb表格上编辑设计期间的网页。IntraWeb的TMS控件允许以RAD方法用Delphi进行网页应用程序的开发。这使得网页开发...
Harriet666
从delphi 3 开始，就可以支持使用webbroke 技术开发基于web 服务器。当时主要是支持CGI和ISAPI. CGI 其实就是一个类似控制台的可执行程序，将其放入web 服务器的可执行目录，每次web 服务器调...
内容简介 本书详细介绍了微软下一代富互联网开发技术Silverlight，分为基础篇、进阶篇、高级篇和案例篇四个部分，共22个章节，以Silverlight 2为主要版本从不同的层面进行了阐释，第一部分介...
前言：在我从C++转到Android时，就被Android里炫彩斑斓的自定义控件深深折服，想知道如果想利用C++实现这些功能，那是相当困难的。从那时候起，我就想，等我学会了自定义控件，一定要写一篇系...
前言：在我从C++转到Android时，就被Android里炫彩斑斓的自定义控件深深折服，想知道如果想利用C++实现这些功能，那是相当困难的。从那时候起，我就想，等我学会了自定义控件，一定要写一篇系...
harvic880925
今天做了一个简易的socketIM的小示例。基本思想是开启两个winform，每个winform既充当服务器也充当客户端。一个监听8000端口，另外一个监听8001端口，两个winform接收到信息之后将信息显示在...
王二狗子11
为什么要用js呢 因为跨平台，甚至网页也可以生成 使用也很简单 手动定义节点使用js对象生成 例如 框架的话可以随便用 比如boot 我这里用的是layui 使用思路就是类似xml布局利用layui 媒体查询...
AnyStock是一款基于XML/JSON的Flash金融图表解决方案，转换你的实时数据为具有交互功能的顶级图表，使你的数据直观地展现在Web页面上，控件支持滚动、下拉、动缩放效果等，并且提供了一系列金...
netkongjian
Xamarin Android开发实战（上册）大学霸内部资料 试读文档下载地址：http://pan.baidu.com/s/1jGEHhhO 密码：vcfm 介绍： 本教程是国内唯一的Xamarin Android开发专向教程。本教程详细讲解如...
VB.NET看完曹祖圣老师的视频，一口的台湾话，连PPT都不是简体中文的，听起来颇有意思。(.NET说是当内，第一次还想什么是当内呢。哈哈)不过话又说回来，这套视频和平常的视频不太一样，好像是...
没有更多内容
加载失败，请刷新页面
PostgreSQL DBA快速入门（一）: 准备和部署 MySQL和PostgreSQL - 两大开源对象关系型数据库管理系统，每一个都有大量的粉丝。这么多年来，在PostgreSQL社区中MySQL一直被消遣：默认松散的SQL...
谈谈神秘的ES6——（三）ES6的函数 ES6函数的改变不算太大，都是一些其他语言早就有的功能，而Javascript一直比较欠缺的，比如函数参数默认值，任意参数的表示法，最大的变化应该是支持箭头函...
Confluence 支持一些可以从 Java 系统属性中配置的配置参数和调试（debugging ）设置。系统属性通常是使用 -D 为参数选项，这个选项是 Confluence 在运行后设置到 JVM 虚拟机中的。请参考：C...
https://blog.csdn.net/qiaoji6073/article/details/
看不懂就多看几遍
Shell编程 （Ⅰ） 一、shell脚本介绍 shell是一种脚本语言 和传统的开发语言比较，会比较简单 shell有自己的语法；可以使用逻辑判断、循环等语法 可以自定义函数，目的就是为了减少重复的代码...
无数据项计数的循环队列算法： 在判满和判空需要注意，由于是循环队列，所以有可能rear和front指针指向同一位置，但是出现的情况有很多，造成可空可满的情况，所以数据项要比存储空间少一，这...
沉迷于编程的小菜菜
第十二章、学习Shell Scripts 12.3 善用判断式 12.4 条件判断式 12.4.2 利用case ... esac 判断 hello-3.sh #!/bin/bash# Program:# Show "hello" from $1... by using case ... esac# ......
Nginx Header，实现对HTTP/S请求、响应进行添加、修改、删除等操作 通过Nginx内置 文档地址: http://nginx.org/en/docs/http/ngx_http_headers_module.html http://nginx.org/en/docs/http/...
前言 作为本系列的起始章节，本章节主要是对Docker的相关概念进行简单阐述下。自此也是查阅了相关资料，奈何也都是英文版居多，看的是有点头大的。现在悔不当初不好好学习英文了。o(︶︿︶)...
本文永久跟新地址：https://my.oschina.net/bysu/blog/.创建本地空白版本库mygit git init 2.往本地仓库添加文件testFile.txt（该文件需放在上面仓库所在的目录） vi testFile.txt ...
不最醉不龟归
没有更多内容
加载失败，请刷新页面
文章删除后无法恢复，确定取消删除此文章吗？
亲，自荐的博客将通过私信方式通知管理员，优秀的博客文章审核通过后将在博客推荐列表中显示
确定推荐此文章吗？
确定推荐此博主吗？
聚合全网技术文章，根据你的阅读喜好进行个性推荐
指定官方社区
深圳市奥思网络科技有限公司版权所有}
文章 - 96&评论 - 11754&trackbacks - 253
GetWindowText(
hWnd: HWND;
{窗口句柄}
lpString: PC
{接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
{返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
arr: array[0..254] of C
GetWindowText(Handle, @arr, SizeOf(arr));
ShowMessage(arr); {Form1}
//标题文本个数:
arr: array[0..254] of C
num := GetWindowText(Handle, arr, SizeOf(arr));
ShowMessage(IntToStr(num)); {5}
阅读(...) 评论()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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
Style.ButtonHover.ToColor =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.ColorTransparency = 0.000000 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 =
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 =
Style.Button.ToColor =
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 =
Style.ButtonHover.ToColor =
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 =
Style.ButtonActive.ToColor =
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.000000 Style.TextShadow.ColorTransparency = 0.000000 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.000000 Style.TextShadow.HShadow = 3 Style.TextShadow.VShadow = 3 Style.TextShadow.ColorTransparency = 0.000000 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);
IWImageButton1.ImageFile.Filename := 'pic1.png'; //pic1.png、pic2.png 放在 wwwroot 目录下
IWImageButton1.HotImageFile.Filename := 'pic2.png';
procedure TIWForm1.IWImageButton1Click(Sender: TObject);
WebApplication.GoToURL('http://del.cnblogs.com');
本文转载自：http://www.cnblogs.com/del/p/3780801.html
人打赏支持
码字总数 14107
TMS IntraWeb Component Pack Pro Script Edition允许从Delphi IDE直接在IntraWeb表格上编辑设计期间的网页。IntraWeb的TMS控件允许以RAD方法用Delphi进行网页应用程序的开发。这使得网页开发...
Harriet666
从delphi 3 开始，就可以支持使用webbroke 技术开发基于web 服务器。当时主要是支持CGI和ISAPI. CGI 其实就是一个类似控制台的可执行程序，将其放入web 服务器的可执行目录，每次web 服务器调...
内容简介 本书详细介绍了微软下一代富互联网开发技术Silverlight，分为基础篇、进阶篇、高级篇和案例篇四个部分，共22个章节，以Silverlight 2为主要版本从不同的层面进行了阐释，第一部分介...
前言：在我从C++转到Android时，就被Android里炫彩斑斓的自定义控件深深折服，想知道如果想利用C++实现这些功能，那是相当困难的。从那时候起，我就想，等我学会了自定义控件，一定要写一篇系...
前言：在我从C++转到Android时，就被Android里炫彩斑斓的自定义控件深深折服，想知道如果想利用C++实现这些功能，那是相当困难的。从那时候起，我就想，等我学会了自定义控件，一定要写一篇系...
harvic880925
今天做了一个简易的socketIM的小示例。基本思想是开启两个winform，每个winform既充当服务器也充当客户端。一个监听8000端口，另外一个监听8001端口，两个winform接收到信息之后将信息显示在...
王二狗子11
为什么要用js呢 因为跨平台，甚至网页也可以生成 使用也很简单 手动定义节点使用js对象生成 例如 框架的话可以随便用 比如boot 我这里用的是layui 使用思路就是类似xml布局利用layui 媒体查询...
AnyStock是一款基于XML/JSON的Flash金融图表解决方案，转换你的实时数据为具有交互功能的顶级图表，使你的数据直观地展现在Web页面上，控件支持滚动、下拉、动缩放效果等，并且提供了一系列金...
netkongjian
Xamarin Android开发实战（上册）大学霸内部资料 试读文档下载地址：http://pan.baidu.com/s/1jGEHhhO 密码：vcfm 介绍： 本教程是国内唯一的Xamarin Android开发专向教程。本教程详细讲解如...
VB.NET看完曹祖圣老师的视频，一口的台湾话，连PPT都不是简体中文的，听起来颇有意思。(.NET说是当内，第一次还想什么是当内呢。哈哈)不过话又说回来，这套视频和平常的视频不太一样，好像是...
没有更多内容
加载失败，请刷新页面
PostgreSQL DBA快速入门（一）: 准备和部署 MySQL和PostgreSQL - 两大开源对象关系型数据库管理系统，每一个都有大量的粉丝。这么多年来，在PostgreSQL社区中MySQL一直被消遣：默认松散的SQL...
谈谈神秘的ES6——（三）ES6的函数 ES6函数的改变不算太大，都是一些其他语言早就有的功能，而Javascript一直比较欠缺的，比如函数参数默认值，任意参数的表示法，最大的变化应该是支持箭头函...
Confluence 支持一些可以从 Java 系统属性中配置的配置参数和调试（debugging ）设置。系统属性通常是使用 -D 为参数选项，这个选项是 Confluence 在运行后设置到 JVM 虚拟机中的。请参考：C...
https://blog.csdn.net/qiaoji6073/article/details/
看不懂就多看几遍
Shell编程 （Ⅰ） 一、shell脚本介绍 shell是一种脚本语言 和传统的开发语言比较，会比较简单 shell有自己的语法；可以使用逻辑判断、循环等语法 可以自定义函数，目的就是为了减少重复的代码...
无数据项计数的循环队列算法： 在判满和判空需要注意，由于是循环队列，所以有可能rear和front指针指向同一位置，但是出现的情况有很多，造成可空可满的情况，所以数据项要比存储空间少一，这...
沉迷于编程的小菜菜
第十二章、学习Shell Scripts 12.3 善用判断式 12.4 条件判断式 12.4.2 利用case ... esac 判断 hello-3.sh #!/bin/bash# Program:# Show "hello" from $1... by using case ... esac# ......
Nginx Header，实现对HTTP/S请求、响应进行添加、修改、删除等操作 通过Nginx内置 文档地址: http://nginx.org/en/docs/http/ngx_http_headers_module.html http://nginx.org/en/docs/http/...
前言 作为本系列的起始章节，本章节主要是对Docker的相关概念进行简单阐述下。自此也是查阅了相关资料，奈何也都是英文版居多，看的是有点头大的。现在悔不当初不好好学习英文了。o(︶︿︶)...
本文永久跟新地址：https://my.oschina.net/bysu/blog/.创建本地空白版本库mygit git init 2.往本地仓库添加文件testFile.txt（该文件需放在上面仓库所在的目录） vi testFile.txt ...
不最醉不龟归
没有更多内容
加载失败，请刷新页面
文章删除后无法恢复，确定取消删除此文章吗？
亲，自荐的博客将通过私信方式通知管理员，优秀的博客文章审核通过后将在博客推荐列表中显示
确定推荐此文章吗？
确定推荐此博主吗？
聚合全网技术文章，根据你的阅读喜好进行个性推荐
指定官方社区
深圳市奥思网络科技有限公司版权所有}
我要回帖
更多推荐
- ·龙腾世纪的推荐配置对处理器有玩大型网游什么配置的电脑要求？
- ·目前考虑购买复古木质做音箱用什么木材最好，ALATS和马歇尔哪个品牌更适合中国家庭？
- ·FC24这是什么意思怎么是两个控制器故障代码如何还原？
- ·那种直播间字幕怎么弄烟花改字的视频怎么弄？
- ·立创广场商城最近有什么大活动吗？
- ·最便宜的咬口机多少钱调试图片
- ·徐冬冬15分在线视频下载链接，求求爸爸对我说！ 谢谢
- ·谁知道抖音m哥带的项链这个是怎么拍的？ 求大神 什么软件
- ·我在百度看的看视频新闻赚金币赚的金币为什么没有兑换成零钱呢
- ·徐冬冬15分钟今年什么玉米种子好下载链接，谢谢大家！
- ·oppor11怎么隐藏应用是真的吗
- ·移动有哪些五十块钱买东西剩51左右的套餐
- ·深圳飞亚达科技大厦女表l276.pwr电子型号
- ·忘记电脑设置开机密码忘了了
- ·自己买新车做网约车怎么注册网约车
- ·求大佬指点下，这电脑这汽车分几个配置置怎么样，
- ·设置bios找不到U盘，小编告诉你如何将U盘启动改成优先启动
- ·CMC无响应告警系统求助
- ·Intraweb下如何按一个一键启动按钮怎么打开后，新打开一个窗口
- ·苏州java培训有哪些 web前端上传文件到后台常用的几种方式
- ·全自动洗车机多少钱一台选择有哪些误区
- ·10万预算，小个子女生如何选购电动老人代步车价格
- ·如何在EF Core中添加自定义锁屏添加迁移行为
- ·小米手小米6开不了机怎么办开不了
- ·你好，你刚说的我没有看懂不说如何能在两个不同版本的手机里登录同一账号的微信，而对方手机没有任何提示
- ·为什么我的微信微信功能没有漂流瓶瓶
- ·手机流量不够用怎么办？我每个月工资不够用都是一百多块钱的话费
- ·延禧攻略播出时间全级资源有吗
- ·台式电脑内存条怎么装兼容
- ·华为TRT-TL1O型号手机壳me9屏幕出现一个O的图标怎样消除
- ·有没有可以手机查询短信内容的软件
