LockDesktop() | be Hilfeportal

LockDesktop() – Applikation sperren und Desktop-Loader anzeigen

Die Funktion sperrt die Applikation und zeigt den Desktop-Loader an.

Parameter	Beschreibung
cCaption:C	Text der im Desktop-Loader angezeigt werden soll

Rückgabewert

Keiner

Beispiel

| oForm, oBtn, aNeedUnlock |

function OnActivate()
   if aNeedUnlock then
      UnlockDesktop(),
      aNeedUnlock := false,
   endif,
end,

function CreateForm()
   oForm             := CreateObject('TFormEx', 'TestForm'),
   oForm.WindowState := 0,
   AssignEvent(oForm, 'OnActivate', 'OnActivate'),
   oBtn              := CreateObject('TBitBtn', 'btn', oForm, oForm),
   oBtn.Kind         := 6,
   oBtn.Top          := 10,
   oBtn.Left         := 10,
   oBtn.Width        := 100,
end,

LockDesktop('Test Programm wird erzeugt...'),
aNeedUnlock := true,
startseq,
   CreateForm(),
   Sleep(1000),
   LockDesktopUpdate('Test Programm wird geladen...'),
   Sleep(1000),
   ShowModal(oForm),
always
   if aNeedUnlock then
      UnlockDesktop(),
   endif,
stopseq,

Weitere Verknüpfungen

UnlockDesktop()