тип ввода "пароль" в uniComboBox

[turan]

Доброе время суток! Подскажите пожалуйста как сделать у uniComboBox маскировку вводимых символов, как у uniEdit свойство PasswordChar. Тестовый проект ComboBoxPass.zip

[Sherzod]

Добрый день,

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniComboBox1.JSInterface.JSConfig('inputType', ['password']);
end;

?

[turan]

3 minutes ago, Sherzod said:

Добрый день,

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniComboBox1.JSInterface.JSConfig('inputType', ['password']);
end;

?

попробую

[turan]

35 minutes ago, Sherzod said:

Добрый день,

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniComboBox1.JSInterface.JSConfig('inputType', ['password']);
end;

?

спасибо, работает. Возможно ли менять значение на UniComboBox1.JSInterface.JSConfig('inputType', ['text']) по событию UniComboBox1TriggerEvent?

[Sherzod]

3 minutes ago, =GGG= said:

Возможно ли менять значение на UniComboBox1.JSInterface.JSConfig('inputType', ['text']) по событию UniComboBox1TriggerEvent?

Пожалуйста, можете уточнить?

[turan]

8 minutes ago, Sherzod said:

Пожалуйста, можете уточнить?

чтобы по нажатию на кнопку с иконкой пароль отображался и скрывался
        ShowPsw := not ShowPsw;
        if ShowPsw then
            edPassword.PasswordChar:=#0
        else
            edPassword.PasswordChar:='*';

[Sherzod]

16 minutes ago, =GGG= said:

чтобы по нажатию на кнопку с иконкой пароль отображался и скрывался

  private
    { Private declarations }
    FInputType: string;

procedure TMainForm.UniComboBox1TriggerEvent(Sender: TUniCustomComboBox;
  AButtonId: Integer);
begin
  if AButtonId = 0 then
  begin
    // Вам нужна переменная, которая будет хранить пред.значение
    if FInputType = 'password' then
    begin
      Sender.JSInterface.JSCall('inputEl.el.dom.setAttribute', ['type', 'text']);
      FInputType := 'text';
    end
    else
    begin
      Sender.JSInterface.JSCall('inputEl.el.dom.setAttribute', ['type', 'password']);
      FInputType := 'password'
    end;
  end;

end;

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniComboBox1.JSInterface.JSConfig('inputType', ['password']);
  FInputType := 'password'
end;

Может как-то так...

[turan]

Пробовал
if AButtonId = 0 then
    begin
        ShowPsw := not ShowPsw;
        if ShowPsw then
            edPassword.JSInterface.JSConfig('inputType', ['text'])
        else
            edPassword.JSInterface.JSConfig('inputType', ['password']);
    end;

 

выдает ошибку

[Sherzod]

JSCall

[turan]

17 minutes ago, Sherzod said:

  private
    { Private declarations }
    FInputType: string;

procedure TMainForm.UniComboBox1TriggerEvent(Sender: TUniCustomComboBox;
  AButtonId: Integer);
begin
  if AButtonId = 0 then
  begin
    // Вам нужна переменная, которая будет хранить пред.значение
    if FInputType = 'password' then
    begin
      Sender.JSInterface.JSCall('inputEl.el.dom.setAttribute', ['type', 'text']);
      FInputType := 'text';
    end
    else
    begin
      Sender.JSInterface.JSCall('inputEl.el.dom.setAttribute', ['type', 'password']);
      FInputType := 'password'
    end;
  end;

end;

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniComboBox1.JSInterface.JSConfig('inputType', ['password']);
  FInputType := 'password'
end;

Может как-то так...

спасибо!