DISABLE ALT+ F4

[Silvio.Falconi]

I have a dialog for add an Invoice
I disabled Esc
I disable button X

but the user is able also to close the dialog with alt+f4


how I can reolve ?

[cnavarro]

Code: Select all  Expand view

Function TestInvoice()

Local oDlg,oFont
local nOffx   := 20 //-250
local nOffy   := 30 //-300
local lSw     := .F.

 DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
 DEFINE DIALOG oDlg SIZE 878, 570 PIXEL TRUEPIXEL RESIZABLE FONT oFont ;
   TITLE "Services"


 @ 10, 100 button "Exit" SIZE 50, 24 PIXEL ACTION ( lSw := .T., oDlg:End() )

 ACTIVATE DIALOG oDlg CENTERED VALID lSw

   RELEASE FONT oFont

return nil