XProfan

 {$cleq}
style de fenêtre 8 | 512
cls
var h&=create("MultiEdit",hWnd,»,0,0,width(%hWnd),height(%hWnd))
setFont h&,create("font","Courier",10,0,0,0,0)
setWindowLong(h&,gwl_userData,setWindowLong(h&,gwl_wndProc,procaddr(myMultiEdit.wndProc)))
setFocus(h&)

whilenot %clé==2

    waitInput

Wend

end

nProc myMultiEdit.wndProc

    Paramètres wnd&,msg&,wp&,lp&

    si msg&==wm_keydown and wp&==vk_tab

        sendMessage(wnd&,em_replaceSel,vrai,chr$(9))
        return 0

    endif

    return callWindowProc(getWindowLong(wnd&,gwl_userData),wnd&,msg&,wp&,lp&)

endproc