DO decl
 
PUBLIC objForm
objForm = CreateObject("TForm")
objForm.Visible = .T.
 
DEFINE CLASS TForm As FORM
    Caption = "Disabling drawing in the form"
    Width=400
    Height=250
    AutoCenter = .T.
 
    ADD OBJECT cmdLock As CommandButton WITH;
    Left=10, Top=15, Width=80, Height=24,;
    Caption="Lock"
 
    ADD OBJECT cmdMsg As CommandButton WITH;
    Left=92, Top=15, Width=80, Height=24,;
    Caption="Test"
 
PROCEDURE  LockForm
    LOCAL hWindow
 
    * obtaining a window handle for the form
    hWindow = GetFocus()
 
    * disabling the form moving
    * since when the form is moved the VFP unlock
    * its window automatically
    ThisForm.Movable = .F.
 
    * locking the window
    = LockWindowUpdate(hWindow)
 
PROCEDURE  cmdLock.Click
    ThisForm.LockForm
 
PROCEDURE  cmdMsg.Click
    = MessageB ("Test Message")
ENDDEFINE
 
PROCEDURE  decl
    DECLARE INTEGER GetFocus IN user32
    DECLARE INTEGER LockWindowUpdate IN user32 INTEGER hWndLock