Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBGrid цифровая клавиарура ввод десят.запятой


Страницы:   1 2

MishaLukash ©   (2008-05-22 12:16:00) 

как сделать чтобы DBGrid был нечувствителен к языку ввода
(когда вводишь цифры с десятичной запятой с цифровой клавиатуры надо переключать язык чтобы там была точка )
а вот DBNumberEditEh нечувствителен к раскладке
в любом случае ставит точку

спасибо


ab   (2008-06-01 19:19:00) [1]

несколько лет назад здесь же на тот же вопрос мне подсказали:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
 with Msg do
   case Message of
     WM_KEYDOWN:
       if wParam=VK_DECIMAL then begin
         Handled := True;
         PostMessage(HWND, WM_CHAR, Ord('.'), lParam);
       end;
     WM_KEYUP:
      if wParam=VK_DECIMAL then
        Handled := True;
   end;
end;


Сергей М.   (2008-05-23 12:22:00) [2]


> MsGuns ©   (22.05.08 23:29) [19]


Да, есть в этом блюде кой-какие невкусные ингредиенты)
Но зато у него есть исходники, по которым можно приготовить собственное вкусное блюдо)


MsGuns   (2008-05-22 23:29:00) [3]

>TMaskEdit

Ох, и гадость эта ваша заливная рыба ;)


Сергей М.   (2008-05-22 22:49:00) [4]


> Хотя тоже могут быть грабли


Антиграбельный комитет рекомендовал не заниматься дурью, редактируя прямо в гриде, а пользоваться специальнми антиграбельными инструментами типа TMaskEdit, TNumericEdit и иже с ними)


MsGuns   (2008-05-22 22:38:00) [5]

Млин, речь только о дес.точке - пардон, не въехал. Тогда нужно в OnKeyPress проверять содержимое поля и, если там число, то тогда "," менять на "." Хотя тоже могут быть грабли ;)))


MsGuns   (2008-05-22 22:35:00) [6]

Миша, для быстрого ввода чисел используется специальная примочка на клавиатуре, кейпад называется. Именно ею пользуются опытные операторы.

А искусственно подменять одни символы другими, даже из лучших побуждений - это см [15]


Сергей М.   (2008-05-22 19:17:00) [7]


> MishaLukash   (22.05.08 17:12) [14]


Тупо ты сделал. Тупо.

Смотри [7]


MishaLukash   (2008-05-22 17:12:00) [8]

просто сделал
procedure TForm1.DBGridTPress(Sender: TObject; var Key: Char);
begin
 if Key=',' then Key:='.';

end;


MishaLukash   (2008-05-22 17:00:00) [9]


> Сергей М. ©   (22.05.08 13:15) [12]

спасибо!


Сергей М.   (2008-05-22 13:15:00) [10]


> MishaLuk   (22.05.08 12:57) [10]


Поле дбгрида связано с объектом TField.
У этого объекта есть событие OnSetText, в обработчике которого ты вправе заменить нежелательные введенные юзером символы на желательные.


Reindeer Moss Eater   (2008-05-22 13:08:00) [11]

неужели ни у кого не было такой проблемы?
такие проблемы посещают только одаренных, а их здесь мало.


MishaLuk   (2008-05-22 12:57:00) [12]

ну вы даете!
неужели ни у кого не было такой проблемы?
большая сетка - название и потом к нему много цифр
и записей десятками (какой тут
> хочешь счастья юзерам - вводи данные на формах через dbedit'ы
> в которых и обрабатывай точки с запятыми

)
что
таки нужно в ручную переключать клаву?
спасибо


Reindeer Moss Eater   (2008-05-22 12:41:00) [13]

А сработает ли кейпресс грида в этом случае?
там же отдельный инплейс эдитор создается во время редактирования.


Vlad Oshin   (2008-05-22 12:35:00) [14]


> вводят только цифры в эту сетку


Reindeer Moss Eater   (2008-05-22 12:33:00) [15]

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=',' then Key='.';
end;

А если
"Превед, медвед!"


Reindeer Moss Eater   (2008-05-22 12:32:00) [16]

хочешь счастья юзерам - вводи данные на формах через dbedit'ы
в которых и обрабатывай точки с запятыми


Vlad Oshin   (2008-05-22 12:31:00) [17]

Удалено модератором


Vlad Oshin   (2008-05-22 12:31:00) [18]

Удалено модератором


Vlad Oshin   (2008-05-22 12:31:00) [19]

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=',' then Key='.';
end;


MishaLuk   (2008-05-22 12:27:00) [20]

те я понял что так задуманно
а если юзеры плюются , что надо переключать все время язык
и вводят только цифры в эту сетку
что делать?
переключать язык при загрузке программы? (из-за настроек винды на разных компах разные требования на одном надо англ на другом рус)
спасибо


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо