B4J Question B4J Form Position

[mohammad shaterian]

How can I get the position of a form when it is in the decorated state relative to the Windows screen, i.e. the distance from the left and top of the screen
Tankyou

 

[stevel05]

Form.WindowLeft
Form.WindowTop
Form.WindowWidth
Form.WindowHeight

are available on a Form Object

 

[emexes]

Wrong direction but right idea, plus it shows how to get the abovementioned Form Object:

Fix Postion when debuging

hi can i set a fix position for the app window when i debug? it covers my code because it is always centered and when i move it to another position on the screen i would like to have it load again at that position and not centered again. thanks

www.b4x.com

 

[mohammad shaterian]

Form.WindowLeft
Form.WindowTop
Form.WindowWidth
Form.WindowHeight

are available on a Form Object

Tankyou steve,But I want the position of the form to be updated instantly when I move the form on the screen. A function like move form
Tank's agin

 

[stevel05]

OK, so you need to set a listener on the x and y properties of the form. It's not as bad as it sounds try this:

Private Sub SetMoveListener(Form As JavaObject)
    Dim Stage As JavaObject = Form.GetField("stage")
    Dim XProp As JavaObject = Stage.RunMethod("xProperty",Null)
    Dim YProp As JavaObject = Stage.RunMethod("yProperty",Null)
   
    Dim O As Object = Form.CreateEventFromUI("javafx.beans.value.ChangeListener","FormMoved",Null)
    XProp.RunMethod("addListener",Array(O))
    YProp.RunMethod("addListener",Array(O))
End Sub

Private Sub FormMoved_Event (MethodName As String, Args() As Object)
    Dim F As Form = Sender
    Log("Form moved " & F.WindowLeft & " : " & F.WindowTop)
End Sub

Usage:

SetMoveListener(MainForm)

 

[mohammad shaterian]

OK, so you need to set a listener on the x and y properties of the form. It's not as bad as it sounds try this:

Private Sub SetMoveListener(Form As JavaObject)
    Dim Stage As JavaObject = Form.GetField("stage")
    Dim XProp As JavaObject = Stage.RunMethod("xProperty",Null)
    Dim YProp As JavaObject = Stage.RunMethod("yProperty",Null)
  
    Dim O As Object = Form.CreateEventFromUI("javafx.beans.value.ChangeListener","FormMoved",Null)
    XProp.RunMethod("addListener",Array(O))
    YProp.RunMethod("addListener",Array(O))
End Sub

Private Sub FormMoved_Event (MethodName As String, Args() As Object)
    Dim F As Form = Sender
    Log("Form moved " & F.WindowLeft & " : " & F.WindowTop)
End Sub

Usage:

SetMoveListener(MainForm)

Tankyou som mach my friend's

stevel05​