LockDesktop()
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
CODE
| 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,