MSMK Posted December 25, 2018 Share Posted December 25, 2018 Здравствуйте! Как запретить ввод буквенных символом в uniDateTimePicker? Link to comment Share on other sites More sharing options...
Sherzod Posted December 25, 2018 Share Posted December 25, 2018 Здравствуйте! Может этот пост поможет Вам, попробуйте: Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 2 hours ago, Sherzod said: Здравствуйте! Может этот пост поможет Вам, попробуйте: в тестовом проекте работает, а в моем рабочем проекте не работает... Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 кажется событие afterrender не срабатывает Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 дописал : function afterrender(sender, eOpts) { $("#"+sender.inputEl.id).inputmask("99/99/9999",{placeholder:"mm/dd/yyyy"}); alert('Test'); } Сообщение Test не отобразилось Link to comment Share on other sites More sharing options...
Sherzod Posted December 25, 2018 Share Posted December 25, 2018 56 minutes ago, =GGG= said: кажется событие afterrender не срабатывает UniDateTimePicker -> Kind - ? Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 27 minutes ago, Sherzod said: UniDateTimePicker -> Kind - ? tUniDate Link to comment Share on other sites More sharing options...
Sherzod Posted December 25, 2018 Share Posted December 25, 2018 1 hour ago, =GGG= said: кажется событие afterrender не срабатывает uses ... uniEdit; ? Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 Just now, Sherzod said: uses ... uniEdit; ? да подключен Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 Перезагрузил Delphi. Теперь события ClientEvents срабатыают, но с ошибкой Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 function afterrender(sender, eOpts) { $("#"+sender.inputEl.id).inputmask("99.99.9999",{placeholder:"__.__.____"}); } Link to comment Share on other sites More sharing options...
Sherzod Posted December 25, 2018 Share Posted December 25, 2018 15 minutes ago, =GGG= said: Теперь события ClientEvents срабатыают, но с ошибкой Я не смог воспроизвести... Link to comment Share on other sites More sharing options...
Sherzod Posted December 25, 2018 Share Posted December 25, 2018 Пробовали на простом тестовом примере? Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 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; Производится замена значений в полях и после отображения формы появляется ошибка: Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 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 и заработало без ошибок Link to comment Share on other sites More sharing options...
MSMK Posted December 25, 2018 Author Share Posted December 25, 2018 В чем возможна причина? Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now