-
как сделать чтобы DBGrid был нечувствителен к языку ввода
(когда вводишь цифры с десятичной запятой с цифровой клавиатуры надо переключать язык чтобы там была точка )
а вот DBNumberEditEh нечувствителен к раскладке
в любом случае ставит точку
спасибо
-
очень полезная для грида фича.
особенно если вводят не числа, а слова и буквы разделенные запятыми.
-
те я понял что так задуманно
а если юзеры плюются , что надо переключать все время язык
и вводят только цифры в эту сетку
что делать?
переключать язык при загрузке программы? (из-за настроек винды на разных компах разные требования на одном надо англ на другом рус)
спасибо
-
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=',' then Key='.';
end;
-
Удалено модератором
-
Удалено модератором
-
хочешь счастья юзерам - вводи данные на формах через dbedit'ы
в которых и обрабатывай точки с запятыми
-
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=',' then Key='.';
end;
А если
"Превед, медвед!"
-
> вводят только цифры в эту сетку
-
А сработает ли кейпресс грида в этом случае?
там же отдельный инплейс эдитор создается во время редактирования.
-
ну вы даете!
неужели ни у кого не было такой проблемы?
большая сетка - название и потом к нему много цифр
и записей десятками (какой тут
> хочешь счастья юзерам - вводи данные на формах через dbedit'ы
> в которых и обрабатывай точки с запятыми
)
что
таки нужно в ручную переключать клаву?
спасибо
-
неужели ни у кого не было такой проблемы?
такие проблемы посещают только одаренных, а их здесь мало.
-
> MishaLuk (22.05.08 12:57) [10]
Поле дбгрида связано с объектом TField.
У этого объекта есть событие OnSetText, в обработчике которого ты вправе заменить нежелательные введенные юзером символы на желательные.
-
> Сергей М. © (22.05.08 13:15) [12]
спасибо!
-
просто сделал
procedure TForm1.DBGridTPress(Sender: TObject; var Key: Char);
begin
if Key=',' then Key:='.';
end;
-
> MishaLukash (22.05.08 17:12) [14]
Тупо ты сделал. Тупо.
Смотри [7]
-
Миша, для быстрого ввода чисел используется специальная примочка на клавиатуре, кейпад называется. Именно ею пользуются опытные операторы.
А искусственно подменять одни символы другими, даже из лучших побуждений - это см [15]
-
Млин, речь только о дес.точке - пардон, не въехал. Тогда нужно в OnKeyPress проверять содержимое поля и, если там число, то тогда "," менять на "." Хотя тоже могут быть грабли ;)))
-
> Хотя тоже могут быть грабли
Антиграбельный комитет рекомендовал не заниматься дурью, редактируя прямо в гриде, а пользоваться специальнми антиграбельными инструментами типа TMaskEdit, TNumericEdit и иже с ними)
-
>TMaskEdit
Ох, и гадость эта ваша заливная рыба ;)
-
> MsGuns © (22.05.08 23:29) [19]
Да, есть в этом блюде кой-какие невкусные ингредиенты)
Но зато у него есть исходники, по которым можно приготовить собственное вкусное блюдо)
-
несколько лет назад здесь же на тот же вопрос мне подсказали:
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;
Есть новые 
Нет новых [134491 +8][b:0][p:0.001]