Серый форум — AHK: Gui для ввода цифр с отбивкой разрядов

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-05T15:40:55Z

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

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-05T09:35:23Z

Впрочем, эта мера не поможет, если удерживать клавишу, которой нет в списке.

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-05T09:21:02Z

В качестве обхода невозможности отловить вставку из контекстного меню, видимо, можно удалить опцию "number" -

Gui, Add, Edit, w240 number hwndhEdit

и воспользоваться следующим кодом в функции события, разрешив ввод перечисленных символов:

WM_CHAR(wp) {
   if (wp = 22) { ; Ctrl + V
      Clipboard := StrReplace(Clipboard, " ")
   }
   Chr := Chr(wp)
   if Chr not in 0,1,2,3,4,5,6,7,8,9
      Return 0
}

Как добавить в этот список с цифрами - пробел?

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-04T12:30:37Z

Спасибо! Правильно понимаю, что событие вставки из контекстного меню не может быть так же обработано?

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T23:00:43Z

Попробуйте так:

Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s13 w400, Tahoma
Gui, Add, Edit, w240 number hwndhEdit
Gui, Add, Button,  default, OK
obj := {h: hEdit}
obj.f := fn := Func("SetDots").Bind(obj)
GuiControl, +g, %hEdit%, % fn
Gui, Show
OnMessage(0x102, "WM_CHAR")
Return

WM_CHAR(wp) {
   if (wp = 22) { ; Ctrl + V
      Clipboard := StrReplace(Clipboard, " ")
   }
}

SetDots(obj)  {
   GuiControl, -g, % obj.h
   GuiControlGet, num,, % obj.h
   num := StrReplace(num, " ")
   GuiControl,, % obj.h, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0 ")
   Send {End}
   fn := obj.f
   GuiControl, +g, % obj.h, % fn
}

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T20:00:44Z

__Михаил__ Я примерно догадываюсь, что там надо добавить событие для вставки из буфера, но затрудняюсь с его поиском.

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T19:43:58Z

1srafel Для начала разберите каждую строку, что для чего. Тогда ясно станет всё. Если вы не понимаете элементарного, толку указывать что-то?

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T17:34:36Z

Следующий код при вводе разбивает числовые разряды пробелами и допускает ввод только цифр. Как перехватить момент вставки числа с пробелами из буфера обмена, чтобы предварительно удалить пробелы?

Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s13 w400, Tahoma
Gui, Add, Edit, w240 number hwndhEdit
Gui, Add, Button,  default, OK
obj := {h: hEdit}
obj.f := fn := Func("SetDots").Bind(obj)
GuiControl, +g, %hEdit%, % fn
Gui, Show
Return

SetDots(obj)  {
   GuiControl, -g, % obj.h
   GuiControlGet, num,, % obj.h
   num := RegExReplace(num, " ")
   GuiControl,, % obj.h, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0 ")
   Send {End}
   fn := obj.f
   GuiControl, +g, % obj.h, % fn
}

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T16:44:48Z

Alectric, спасибо!

1srafel пишет:

опция, для задания лимита цифр, которые можно ввести в Gui-окно - например, не более 18 цифр?

Gui, Add, Edit, Limit18

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T14:22:57Z

Наверно так:


...
Gui, Add, Edit, w240 number vnumber hwndhEdit
...
ButtonOK:
  Gui, Submit
  MsgBox, %number%
...

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T01:42:49Z

Как передать введенное число в MsgBox по нажатии кнопки OK?

Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s13 w400, Tahoma
Gui, Add, Edit, w240 number hwndhEdit
Gui, Add, Button,  default, OK
obj := {h: hEdit}
obj.f := fn := Func("SetDots").Bind(obj)
GuiControl, +g, %hEdit%, % fn
Gui, Show
Return

SetDots(obj)  {
   GuiControl, -g, % obj.h
   GuiControlGet, num,, % obj.h
   num := RegExReplace(num, " ")
   GuiControl,, % obj.h, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0 ")
   Send {End}
   fn := obj.f
   GuiControl, +g, % obj.h, % fn
}
GuiClose:
   ExitApp

ButtonOK:
   Gui, Submit

   MsgBox, %hEdit%

   Pause
Return

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T01:21:26Z

Есть ли аналогичная "+Number" опция, для задания лимита цифр, которые можно ввести в Gui-окно - например, не более 18 цифр?

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T01:14:48Z

Все-таки, работает -

Gui, Add, Edit, w150 number hwndhEdit
obj := {h: hEdit}
obj.f := fn := Func("SetDots").Bind(obj)
GuiControl, +g, %hEdit%, % fn
Gui, Show
Return

SetDots(obj)  {
   GuiControl, -g, % obj.h
   GuiControlGet, num,, % obj.h
   num := RegExReplace(num, " ")
   GuiControl,, % obj.h, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0 ")
   Send {End}
   fn := obj.f
   GuiControl, +g, % obj.h, % fn
}

Re: AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T01:09:55Z

По ссылке есть решение для точки, но с пробелом не срабатывает - ?pid=126480#p126480.

AHK: Gui для ввода цифр с отбивкой разрядов

2025-04-03T01:03:55Z

Есть ли возможность при вводе чисел в окно GUI - разряды отделять пробелом/отступом, как это сделано во встроенном калькуляторе? Напр.: 8 201 794.

Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s12 w400, Tahoma
Gui, Add, Edit, x+0 yp4 w252 h24 +Center +Number vToggleLen
Gui, Show, Center w400 h100, %script_name%
return