XProfan

 {$cleq}
windowstyle 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 %key==2

    waitInput

wend

end

nProc myMultiEdit.wndProc

    Parámetros wnd&,msg&,wp&,lp&

    if msg&==wm_keydown and wp&==vk_tab

        sendMessage(wnd&,em_replaceSel,true,chr$(9))
        volver 0

    endif

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

ENDPROC