XProfan

 {$iq}
 $H windows.ph
 $H messages.ph
 $H structs.ph
Set("ErrorLevel",1)
Set("FastMode",1)
Declare WndClass#
Declare Msg#
Struct TWindowClass  = ~WNDCLASS
Struct TMsg          = ~MSG
Dim Msg#,TMsg
Var hwndClass$       = "WINDOW"
Var hwndName$        = "FENSTER"
'*****************************************************************************************

Proc WinMain

    Dim WndClass#,TWindowClass

    With WndClass#

        .style&          = ~CS_HREDRAW | ~CS_VREDRAW
        .lpfnWndProc&    = ProcAddr(WndProc,4)
        .cbClsExtra&     = 0
        .cbWndExtra&     = 0
        .hInstance&      = %hInstance
        .hIcon&          = 0
        .hCursor&        = ~LoadCursor(0, ~IDC_ARROW)
        .hbrBackground&  = (~COLOR_APPWORKSPACE + 1)
        .lpszMenuName&   = 0
        .lpszClassName&  = Addr(hwndClass$)

    EndWith

    ~RegisterClass(WndClass#)
    Dispose WndClass#
    Var hWnd& = ~CreateWindowEx(0,Addr(hwndClass$),Addr(hwndName$),$02CA0000,100,100,780,500,0,0,%hInstance,0)
    ~ShowWindow(hWnd&, ~SW_SHOWNORMAL)
    ~UpdateWindow(hWnd&)
    Var but& = @create("BUTTON",hWnd&,"TEST",50,50,100,100)

    While ~GetMessage(Msg#, 0, 0, 0) > 0

        ~TranslateMessage(Msg#)

        If getfocus(but&)

            print "1"

        EndIf

        ~DispatchMessage(Msg#)

    EndWhile

EndProc

'*****************************************************************************************

nProc WndProc

    Parameters Wnd&, Message&, wParam&, lParam&

    If Message& = ~WM_DESTROY

        ~PostQuitMessage(0)

    EndIf

    Return ~DefwindowProc(Wnd&, Message&, wParam&, lParam&)

EndProc

'*****************************************************************************************
WinMain
Dispose Msg#
END