Function WindowX(ByVal hWin As HWND) As Integer
Функция возвращает расположение окна по оси Х
hWin - хендл окна
Windows , Linux
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,200,200)
UpdateInfoXserver
SetWindowText(hwnd,Str(WindowX(hwnd) & "x" & WindowY(hwnd)))'см.в заголовке окна
Do
event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Easy EPub and documentation editor