Jump to content

pavell

Members
  • Posts

    14
  • Joined

  • Last visited

Recent Profile Visitors

516 profile views

pavell's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1. Добрый день! Пробую такой вот код: procedure TfrmXXX.gridMainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If Shift=[ssAlt] Then inherited; // end; procedure TfrmXXX.gridMainMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If Shift=[ssAlt] Then inherited; // end; Но значение переменной SHIFT всегда = [], не зависимо от того нажат alt, ctrl или shift. Это ошибка или я что-то не правильно понимаю? Спасибо!
  2. Hi all, If DBGrid finde this situation: procedure TfrmXXX.gridMainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If Shift=[ssAlt] Then inherited; // end; procedure TfrmXXX.gridMainMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If Shift=[ssAlt] Then inherited; // end; Value of Shift is always '[]'. i.e. i can't catch pressed button SHIFT, ALT, CTRL. What is this, bug?
  3. Все та же: Версия: 0.99.96.1321. Это демо-версия. На сколько понимаю это последняя?
  4. Добрый день, Демо проанализировал. Я его смотрел и раньше. Но в моем случае все намного сложнее, у меня в проекте есть базовые формы. И в одной из них был снят признак NavigateKeys.HandleTabs. И видимо поэтому переход табом "пошел вразнос". Признак вернул, сейчас ситуация, вроде бы, вошла в норму. Осталось только понять почему этот признак мог быть снят. Ну буду наблюдать за поведением программы, может со временем и пойму. В любом случае спасибо за "наводку"!
  5. Здравствуйте! Извините, что пропал на неопределенный срок. Да, с картинками как-то не разобрался как можно прикреплять. И с проблемой вроде бы разобрался. Правда с большим трудом, но разобрался. Т.ч. спасибо. Сейчас борюсь с другой проблемой: порядком следования полей редактирования (TabOrder). Почему-то по табу курсор переходит не совсем туда, куда ожидается. Курсор даже умудряется перескочить на экранные поля родительского окна, что совсем не радует. Попробовал почитать форум. Народ уже пытался обсуждать эти вопросы. Но решений проблемы как-то не обнаружил. Подскажите пожалуйста, эта проблема решена?
  6. Здравствуйте! Версия: 0.99.96.1321 Очень рад что Вы ответили! Спасибо!
  7. Всем доброго дня! Есть такая задача: на форме имеется поле ввода (UniEdit). Задана маска ввода (InputMask.Mask='999-999-999'). После присвоения значения этому полю курсор всегда останавливается в самом конце поля, не зависимо от длины вводимого значения. Вот так: А хотелось бы чтобы курсор оказался сразу после последнего значащего символа. Это важно для меня. На самом деле, работа ведется над более существенным кодом, но все застопорилось именно из-за этой "фичи". Тестовый пример:
  8. Hi! Is it possible to change mask dynamically? For example: change mask '+9(999)999-99-99' to new value '+99(99)999-9999' Thanks
  9. Hi, There is checkbox (TUniCheckBox) on the form. I want dynamically change props of his font. When i do: myCheckBox.Font.Style := myCheckBox.Font.Style + [fsBold]; and myCheckBox.Font.Style := myCheckBox.Font.Style - [fsBold]; i see required effect (font "bold-on"/"bold-off"). But myCheckBox.Font.Style := myCheckBox.Font.Style + [fsUnderline]; and myCheckBox.Font.Style := myCheckBox.Font.Style - [fsUnderline]; not work proper. That is, +fsUnderline make font underlined, but after -fsUnderline font still underlined. Is it bug?
  10. Hi, I want in run time (for ex. by means of check box) to change prop. Grouping.Enabled of DBGrid. (add or remove grouping functionality). But result not OK. I believe the decision should be. Help, please!
  11. Здравствуйте. Пытался зайти - не смог. Проект закрыт?
×
×
  • Create New...