添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
//该方法传入两个参数:
//1. ParentForm:将这个URLLabel添加到那个界面上,这里添加到整个安装WizardForm去
//2. CancelButton:使用WizardForm的CancelButton来辅助这个URLLabel作相对定位
procedure CreateURLLable(ParentForm: TSetupForm; CancelButton: TNewButton);
      URLLabel: TNewStaticText;
begin
     URLLabel := TNweStaticText.Create(ParentForm);//这个URLLabel实际即使一个文本标签,将它添加到WizardForm中去
     URLLabel.Caption := 'www.innosetup.com';//设定显示的文本
     URLLabel.Cursor := crHand;//鼠标移上去时显示为手形
     URLLabel.OnClick := @URLLabelOnClick;//绑定点击事件
     URLLabel.Parent := ParentForm;
     URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];//文件显示下划线      
     URLLabel.Font.Color := clBlue;
     URLLabel.Top := CancelButton.Top;//直接使用CancelButton的Top来定位
     URLLabel.Left := ScaleX(20);//与左边相距20个像素

2. 为标签URLLabel绑定点击事件(这个方法的定义必须在CreateURLLabel()之前)

procedure URLLabelOnClick(Sender: TObject);
     ErrorCode: Integer;
begin
     ShellExecAsOriginalUser('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

3. 在procedure InitializeWizard()方法中调用 CreateURLLabel()方法

//该方法是innosetup自带的方法,作用是初始化安装界面WizardForm
procedure InitializeWizard();
begin
       //.....其他代码
       CreateURLLabel(WizardForm, WizardForm.CancelButton);
                            
jsp页面java代码打印变量 jsp页面调用打印机

下面的例子简单实现了“打印”、“页面设置”、“打印预览”,请使用IE来调试下面的例子:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <title>打印示例</title> <!--media=print 这个属性可以在打印