Серый форум — AHK: классы

Re: AHK: классы

2017-08-29T09:10:09Z

Там имя класса прописывается, мне это не нравится. Типа если захотел поменять имя, то чтобы лезть больше никуда не надо. В 28 есть решение, также переделал часы из коллекции.

Re: AHK: классы

2017-08-29T08:16:22Z

Ну а если там и прописать? Вот так ведь вроде работает.


m1 := new ClassName("Привет!", 300)
m2 := new ClassName("Пока!", 600) 
ToolTip % m1.arr[1] "`n" m2.arr[1]
Return

Class ClassName
{
   static arr := [], var := OnMessage(WM_LBUTTONDOWN := 0x201, ObjBindMethod(ClassName, "OnButtonDown"))
   __New(key, x) {
      Gui, New, +hwndhGui
      Gui, Show, x%x% w222 h222
      this.arr[1] := key
   }
   OnButtonDown(wp, lp, msg, hwnd) {
      MsgBox % this.arr[1] . "`n" . hwnd
   }
}

Re: AHK: классы

2017-08-29T07:40:12Z

Так лучше наверное нигде. В классе должно быть такое.

Re: AHK: классы

2017-08-29T07:05:51Z

А где ему придётся это прописывать?

Re: AHK: классы

2017-08-29T01:13:32Z

Согласись не красиво, предоставляя класс, объснять пользователю что ему надо (в моем случае) прописывать еще 5 замысловатых строк.

		OnMessage(This.WM_LBUTTONDOWN, ObjBindMethod(Class, "OnButtonDown"))
		OnMessage(This.WM_LBUTTONDBLCLK, ObjBindMethod(Class, "OnButtonDown"))
		OnMessage(This.WM_RBUTTONDOWN, ObjBindMethod(Class, "OnButtonDown"))
		OnMessage(This.WM_RBUTTONDBLCLK, ObjBindMethod(Class, "OnButtonDown"))
		OnMessage(This.WM_MOUSEWHEEL, ObjBindMethod(Class, "OnMouseWheel"))

Re: AHK: классы

2017-08-29T01:00:55Z

С одним OnMessage:

m1 := new ClassName("Привет!", 300)
m2 := new ClassName("Пока!", 600) 
ToolTip % m1.arr[1] "`n" m2.arr[1]
OnMessage(WM_LBUTTONDOWN := 0x201, ObjBindMethod(ClassName, "OnButtonDown"))
Return

Class ClassName
{
   static arr := []
   __New(key, x) {
      Gui, New, +hwndhGui
      Gui, Show, x%x% w222 h222
      this.arr[1] := key
   }
   OnButtonDown(wp, lp, msg, hwnd) {
      MsgBox % this.arr[1]
   }
}

Re: AHK: классы

2017-08-29T00:51:08Z

Формулировки честно говоря не было, от одного вопроса плавно перешли к другому.
С A_Gui лучше, а то в hwnd контрол может быть. Спасибо, сам недогадался, способ хороший, если сообщение требует привязки к конкретному окну. В моём случае это тоже требуется, но всё же не нравится дёргать OnProc по несколько раз при каждом клике или движении колёсика. При 10 окнах, 10 кликов вызовут очередь из 100 сообщений. Пока остановлюсь на своём решении передачи самого класса с одним OnMessage.

Re: AHK: классы

2017-08-29T00:36:02Z

А лучше даже так:

m1 := new ClassName("Привет!", 300)
m2 := new ClassName("Пока!", 600) 
ToolTip % m1.arr[1] "`n" m2.arr[1]
Return

Class ClassName
{
   static arr := []
   __New(key, x) {
      Gui, New, +hwndhGui
      Gui, Show, x%x% w222 h222
      this.arr[1] := key
      OnMessage(WM_LBUTTONDOWN := 0x201, ObjBindMethod(this, "OnButtonDown", hGui))
   }
   OnButtonDown(hGui, wp, lp, msg, hwnd) {
      if (hGui = A_Gui)
         MsgBox % this.arr[1]
   }
}

Re: AHK: классы

2017-08-29T00:29:10Z

Так ты зададачу не можешь чётко сформулировать.

serzh82saratov пишет:

каждый экземпляр это новое окно

Ну а у тебя

Gui, Show, w222 h222

Подразумевается, что это одно и то же окно Gui, 1:. Если это разные окна, их нужно создавать

Gui, New, +hwndhGui

А потом, чтобы не было лишних срабатываний OnMessage, проверять параметр hwnd:

m1 := new ClassName("Привет!", 300)
m2 := new ClassName("Пока!", 600) 
ToolTip % m1.arr[1] "`n" m2.arr[1]
Return

Class ClassName
{
   static arr := []
   __New(key, x) {
      Gui, New, +hwndhGui
      Gui, Show, x%x% w222 h222
      this.arr[1] := key
      OnMessage(WM_LBUTTONDOWN := 0x201, ObjBindMethod(this, "OnButtonDown", hGui))
   }
   OnButtonDown(hGui, wp, lp, msg, hwnd) {
      if (hGui = hwnd)
         MsgBox % this.arr[1]
   }
}

Re: AHK: классы

2017-08-29T00:26:11Z

serzh82saratov пишет:

Думаю надо писать то, что необходимо для конкретного функционала.

serzh82saratov пишет:

А зачем мне такая функция, если нет доступа к нужным мне данным?

Мне собственно изначально надо было внутри класса, так как речь идёт про как бы общий массив используемый в классе, и если что то написано вопреки тезису - "иметь отношение ко всем экземплярам объектов" то я просто варвар. Хотя - массив общий для всех экземпляров, вроде ему соответсвует.

Re: AHK: классы

2017-08-29T00:14:24Z

teadrinker пишет:

Ну так а откуда в функции за пределами класса возьмётся this?

А зачем мне такая функция, если нет доступа к нужным мне данным?

Re: AHK: классы

2017-08-29T00:13:27Z

Я тебе пытался привести как пример часы. В моём случае, или в других подобных, каждый экземпляр это новое окно (был пример и с двумя окнами п.34), создали окна, потом понадобилось какое то удалить, естественно удаляем вместе с экземпляром.

teadrinker пишет:

Нет, внутри конструктора имеет смысл писать то, что будет иметь отношение ко всем экземплярам объектов.

Думаю надо писать то, что необходимо для конкретного функционала.

Re: AHK: классы

2017-08-29T00:07:05Z

serzh82saratov пишет:

Тогда пусто.

Ну так а откуда в функции за пределами класса возьмётся this?

Re: AHK: классы

2017-08-29T00:00:57Z

serzh82saratov пишет:

Так если я потом этот объект (экземпляр) удалю, я сообщения перестану получать.

Этого не понял, зачем тогда вообще его создавать?

serzh82saratov пишет:

Если пишешь класс, то как то не по фен шую что то выводить за его пределы

Нет, внутри конструктора имеет смысл писать то, что будет иметь отношение ко всем экземплярам объектов. Вообще в принципе нелогично писать внутри метода __New

Gui, Show, w222 h222

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

Re: AHK: классы

2017-08-28T23:56:17Z

Тогда пусто.

m1 := new ClassName("Привет!")
m2 := new ClassName("Пока!") 
m1.Destroy()
ToolTip % m1.arr[1] "`n" m2.arr[1]
Return

Class ClassName
{
   static arr := [], var := OnMessage(WM_LBUTTONDOWN := 0x201, "OnButtonDown")
   __New(key) {
      Gui, Show, w222 h222
      this.arr[1] := key
   }
   OnButtonDown(wp, lp, msg, hwnd) {
      MsgBox % this.arr[1]
   }
      Destroy() {   
      This.Base := ""
   }
}

OnButtonDown()  {
   MsgBox % this.arr[1]
}