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

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

null@example.com (teadrinker) — Sat, 05 Apr 2025 15:40:55 +0000

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

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

null@example.com (1srafel) — Sat, 05 Apr 2025 09:35:23 +0000

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

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

null@example.com (1srafel) — Sat, 05 Apr 2025 09:21:02 +0000

В качестве обхода невозможности отловить вставку из контекстного меню, видимо, можно удалить опцию "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 для ввода цифр с отбивкой разрядов

null@example.com (1srafel) — Fri, 04 Apr 2025 12:30:37 +0000

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

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

null@example.com (teadrinker) — Thu, 03 Apr 2025 23:00:43 +0000

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

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 для ввода цифр с отбивкой разрядов

null@example.com (1srafel) — Thu, 03 Apr 2025 20:00:44 +0000

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

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

null@example.com (__Михаил__) — Thu, 03 Apr 2025 19:43:58 +0000

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

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

null@example.com (1srafel) — Thu, 03 Apr 2025 17:34:36 +0000

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

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 для ввода цифр с отбивкой разрядов

null@example.com (1srafel) — Thu, 03 Apr 2025 16:44:48 +0000

Alectric, спасибо!

1srafel пишет:

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

Gui, Add, Edit, Limit18

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

null@example.com (Alectric) — Thu, 03 Apr 2025 14:22:57 +0000

Наверно так:


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

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

null@example.com (1srafel) — Thu, 03 Apr 2025 01:42:49 +0000

Как передать введенное число в 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 для ввода цифр с отбивкой разрядов

null@example.com (1srafel) — Thu, 03 Apr 2025 01:21:26 +0000

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

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

null@example.com (1srafel) — Thu, 03 Apr 2025 01:14:48 +0000

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

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 для ввода цифр с отбивкой разрядов

null@example.com (1srafel) — Thu, 03 Apr 2025 01:09:55 +0000

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

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

null@example.com (1srafel) — Thu, 03 Apr 2025 01:03:55 +0000

Есть ли возможность при вводе чисел в окно 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