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;
Может как-то так...