2008-09-26 50 views

回答

4

我花了一些時間去解決它,但被指出了正確的方向後阿瑟賽德,我終於得到它(適用於5.2版本):

[Code] 

var 
    MyCustomPage : TWizardPage; 

procedure MyEditField_OnChange(Sender: TObject); 
begin 
    MsgBox('TEST', mbError, MB_OK); 
end; 

function MyCustomPage_Create(PreviousPageId: Integer): Integer; 
var 
    MyEditField: TEdit; 
begin 
    MyCustomPage := CreateCustomPage(PreviousPageId, 'Caption', 'Description'); 
    MyEditField := TEdit.Create(MyCustomPage); 
    MyEditField.OnChange := @MyEditField_OnChange; 
end; 
+0

你可以添加創新安裝的版本你正在使用這個代碼?它看起來像版本5.我問這是因爲我知道有關版本4和5之間的自定義頁面有很多不同。 – Otherside 2008-10-02 13:00:24

2

由於innosetup中的腳本基於Delphi鬆散,因此控件應該有一些事件,如OnEnter(=控制焦點)和OnExit (=控制失去焦點)。您可以爲這些事件分配過程,如下所示: ComboBox.OnExit:= ComboBoxExit;

procedure ComboBoxExit(Sender: TObject); 
begin 

end; 

我現在無法訪問Innosetup,因此您需要查找過程的可用事件和參數。

相關問題