1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

Вопрос Command line switch to every combobox items?

Тема в разделе "Inno Setup", создана пользователем thebig1825, 20 июл 2018.

  1. Пользователь

    Регистрация:
    9 июл 2017
    Сообщения:
    7
    Симпатии:
    1
    Пол:
    Мужской
    I want to add command line switches to items from this combobox:

    NewComboBox1 := TNewComboBox.Create(WizardForm);
    with NewComboBox1 do begin
    Parent := Component.Surface;
    Left := ScaleX(5);
    Top := ScaleY(180);
    Width := ScaleX(170);
    Height := ScaleY(21);
    Style := csDropDownList;
    Items.Add('Item1');
    Items.Add('Item2');

    function myitem1: Boolean;
    begin
    Result: = NewComboBox1.ItemIndex = 0
    end;

    function myitem2: Boolean;
    begin
    Result: = NewComboBox1.ItemIndex = 1
    end;
     
    Последнее редактирование: 21 июл 2018
  2. Ветеран Модератор

    Регистрация:
    26 июн 2011
    Сообщения:
    1.213
    Симпатии:
    782
    thebig1825,
    Код (Inno):
    function CheckParam(s: string): boolean;
    var
    i: integer;
    begin
      for i := 0 to ParamCount do begin
        Result := ParamStr(i) = s;
        if Result then Break;
      end;
    end;
    // Checked := CheckParam('/item1') or blabla;
    // i:= 0..!
     
    Последнее редактирование: 20 июл 2018
    thebig1825 нравится это.
  3. Пользователь

    Регистрация:
    9 июл 2017
    Сообщения:
    7
    Симпатии:
    1
    Пол:
    Мужской
    Хорошо, но как заставить его работать с
    Код (Inno):
      NewComboBox1 := TNewComboBox.Create(WizardForm);
      with NewComboBox1 do begin
        Parent := Copmp2;
        Left := ScaleX(25);
        Top := ScaleY(25);
        Width := ScaleX(170);
        Height := ScaleY(21);
        Style := csDropDownList;
        Items.Add('item1');
     
  4. Ветеран Модератор

    Регистрация:
    26 июн 2011
    Сообщения:
    1.213
    Симпатии:
    782
    thebig1825,
    Код (Inno):
    function myitem1: Boolean;
    begin
    Result: = (NewComboBox1.ItemIndex = 0) or CheckParam('/item0');
    end;
    ?
     
    thebig1825 нравится это.

Поделиться этой страницей