代码之家  ›  专栏  ›  技术社区  ›  Treb

Inno设置:在向导页面中捕获控制事件

  •  2
  • Treb  · 技术社区  · 16 年前

    在用户定义的向导页中,是否有方法捕获控件的更改或焦点事件?我想在一些下拉列表(如消息框)中提供用户输入的即时反馈。

    2 回复  |  直到 16 年前
        1
  •  4
  •   Treb    16 年前

    我花了一些时间来解决这个问题,但是在被另一方指出正确的方向之后,我终于得到了它(适用于版本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;
    
        2
  •  2
  •   Otherside    16 年前

    因为innosetup中的脚本是松散地基于delphi的,所以控件应该有一些事件,比如 OnEnter (=控件获得焦点)和 OnExit (=控制失去焦点)。您可以为这些事件分配过程,如下所示: ComboBox.Onexit:=ComboBoxexit;

    procedure ComboBoxExit(Sender: TObject);
    begin
    
    end;
    

    我现在没有访问InnoSetup的权限,因此您需要查找过程的可用事件和参数。