Запрет ввода букв в uniDateTimePicker

[MSMK]

Здравствуйте! Как запретить ввод буквенных символом в uniDateTimePicker?

[Sherzod]

Здравствуйте!

Может этот пост поможет Вам, попробуйте:

 

[MSMK]

2 hours ago, Sherzod said:

Здравствуйте!

Может этот пост поможет Вам, попробуйте:

 

 в тестовом проекте работает, а в моем рабочем проекте не работает...

[MSMK]

кажется событие afterrender не срабатывает

[MSMK]

дописал :

function afterrender(sender, eOpts)
{
   $("#"+sender.inputEl.id).inputmask("99/99/9999",{placeholder:"mm/dd/yyyy"});
   alert('Test');
}

Сообщение Test не отобразилось

[Sherzod]

56 minutes ago, =GGG= said:

кажется событие afterrender не срабатывает

UniDateTimePicker -> Kind - ?

[MSMK]

27 minutes ago, Sherzod said:

UniDateTimePicker -> Kind - ?

tUniDate

[Sherzod]

1 hour ago, =GGG= said:

кажется событие afterrender не срабатывает

uses ... uniEdit; ?

[MSMK]

Just now, Sherzod said:

uses ... uniEdit; ?

да подключен

[MSMK]

Перезагрузил Delphi. Теперь события ClientEvents срабатыают, но с ошибкой

 

[MSMK]

function afterrender(sender, eOpts)
{
  $("#"+sender.inputEl.id).inputmask("99.99.9999",{placeholder:"__.__.____"});
}

[Sherzod]

15 minutes ago, =GGG= said:

Теперь события ClientEvents срабатыают, но с ошибкой

Я не смог воспроизвести...

[Sherzod]

Пробовали на простом тестовом примере?

[MSMK]

7 minutes ago, Sherzod said:

Я не смог воспроизвести...

Нашли причину из-за которой вылетает ошибка. Во время вызова формы по событию onShow мы выполняем локализацию интерфейса (перевод язык - например русский, казахский), В цикле

 for z := 0 to AForm.ComponentCount - 1 do
        TranslateObjectProperties(AForm.Components[z], LangID);

пробегаемся по всем контроллам и производим замену строк заранее указанных полей :

if (PropInfo^.PropType^.Kind in [tkString, tkLString, tkWString, tkUString]) then
            begin
                if (SameText(PropInfo^.Name, 'Hint')) or
                    (SameText(PropInfo^.Name, 'Caption')) or
                    (SameText(PropInfo^.Name, 'Text')) or
                    (SameText(PropInfo^.Name, 'Description')) or
                    (SameText(PropInfo^.Name, 'LabelCaption')) or
                    (SameText(PropInfo^.Name, 'Title')) or
                    (SameText(PropInfo^.Name, 'Message')) or
                    (SameText(PropInfo^.Name, 'FieldCaption')) or
                    (SameText(PropInfo^.Name, 'HeaderTitle')) or
                    (SameText(PropInfo^.Name, 'EmptyText'))  then
                begin
                    inc(Result);
                    SetLength(PropArray^, Result);
                    PropArray^[Result - 1].PropertyName := PropInfo^.Name;
                    PropArray^[Result - 1].PropertyType := PropInfo^.PropType^.Kind;
                    PropArray^[Result - 1].PropertyValue := GetStrProp(obj, PropInfo^.Name);
                end;
            end;

Производится замена значений в полях и после отображения формы появляется ошибка:

[MSMK]

Just now, =GGG= said:

Нашли причину из-за которой вылетает ошибка. Во время вызова формы по событию onShow мы выполняем локализацию интерфейса (перевод язык - например русский, казахский), В цикле

 for z := 0 to AForm.ComponentCount - 1 do
        TranslateObjectProperties(AForm.Components[z], LangID);

пробегаемся по всем контроллам и производим замену строк заранее указанных полей :

if (PropInfo^.PropType^.Kind in [tkString, tkLString, tkWString, tkUString]) then
            begin
                if (SameText(PropInfo^.Name, 'Hint')) or
                    (SameText(PropInfo^.Name, 'Caption')) or
                    (SameText(PropInfo^.Name, 'Text')) or
                    (SameText(PropInfo^.Name, 'Description')) or
                    (SameText(PropInfo^.Name, 'LabelCaption')) or
                    (SameText(PropInfo^.Name, 'Title')) or
                    (SameText(PropInfo^.Name, 'Message')) or
                    (SameText(PropInfo^.Name, 'FieldCaption')) or
                    (SameText(PropInfo^.Name, 'HeaderTitle')) or
                    (SameText(PropInfo^.Name, 'EmptyText'))  then
                begin
                    inc(Result);
                    SetLength(PropArray^, Result);
                    PropArray^[Result - 1].PropertyName := PropInfo^.Name;
                    PropArray^[Result - 1].PropertyType := PropInfo^.PropType^.Kind;
                    PropArray^[Result - 1].PropertyValue := GetStrProp(obj, PropInfo^.Name);
                end;
            end;

Производится замена значений в полях и после отображения формы появляется ошибка:

Перенесли локализацию на событие UniFormReady и заработало без ошибок

[MSMK]

В чем возможна причина?