2012-02-11 600 views

回答

2

創建RTF格式的許可證文本(帶寫字板的非常小的文件大小),並在文本輸入的超級鏈接爲純文本,無額外的功能需要(如「http://stackoverflow.com」)。 InnoSetup將顯示此URL並使其可點擊。請注意,電子郵件鏈接無法正常工作。

想試試嗎?保存整個文本寫字板,保存爲RTF並將其鏈接到InnoSetup。

荷蘭

8

我知道我很晚這裏...下面的代碼腳本創建嚮導形式的左下部分的License Agreement鏈接標籤。該標籤有一個藍色下劃線字體和一個懸停的手形光標,因此它看起來和感覺像一個常見的網頁鏈接。在其單擊事件中,指定的URL在默認的Web瀏覽器中打開。此標籤然後對除許可頁面一個所有嚮導頁面可見:

[Code] 
var 
    LicenseLinkLabel: TLabel; 

procedure LicenseLinkClick(Sender: TObject); 
var 
    ErrorCode: Integer; 
begin 
    ShellExec('', 'http://www.stackoverflow.com', '', '', SW_SHOW, ewNoWait, 
    ErrorCode); 
end; 

procedure InitializeWizard; 
begin 
    LicenseLinkLabel := TLabel.Create(WizardForm); 
    LicenseLinkLabel.Parent := WizardForm; 
    LicenseLinkLabel.Left := 8; 
    LicenseLinkLabel.Top := WizardForm.ClientHeight - 
    LicenseLinkLabel.ClientHeight - 8; 
    LicenseLinkLabel.Cursor := crHand; 
    LicenseLinkLabel.Font.Color := clBlue; 
    LicenseLinkLabel.Font.Style := [fsUnderline]; 
    LicenseLinkLabel.Caption := 'License Agreement'; 
    LicenseLinkLabel.OnClick := @LicenseLinkClick; 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    LicenseLinkLabel.Visible := CurPageID <> wpLicense; 
end; 

而結果(點擊放大):

Click to enlarge Click to enlarge

+0

如果這個職位回答您的問題(即使有這樣的延遲:-),你可能會[[考慮接受它]](http://meta.stackexchange.com/a/5235/179541),如果沒有,請不要猶豫,在這裏留下評論,說明你的確切需要。謝謝! – TLama 2012-09-12 20:29:45

+0

Inno文檔沒有列出CurPageChanged,但我設法通過綁定OnActivate和OnNextButtonClick事件來獲得顯示/隱藏的TWizardPage。 – MikeKusold 2014-03-13 16:29:12

相關問題