ShowModal()
ShowModal() – Fenster modal anzeigen
Die Funktion zeigt ein Fenster modal an. Das heißt, das Fenster wird in dem Vordergrund von BE erzeugt und solange es nicht beendet wird kann nur in diesem Fenster gearbeitet werden. Wird das Fenster geschlossen, liefert es einen numerischen Wert zurück, der der Eigenschaft ModalResult entspricht. Diese Eigenschaft kann mit der Funktion ModalResult() gesetzt werden.
Parameter | Beschreibung |
|---|---|
aFormObject:O | Form-Objekt, welches angezeigt werden soll |
Rückgabewert
Numerisch - Modales Ergebnis (kann über ModalResult() zugewiesen werden). Standardmäßig: mrNone
Beispiel
CODE
| oForm, oBtnC, oEdit |
function DoOnBtnCClick( sender )
ModalResult(oForm, 1),
end,
oForm := CreateObject('TForm'),
oForm.BorderStyle := bsSingle,
oForm.Width := 200,
oForm.Height := 400,
oForm.Name := 'Form',
oForm.Caption := 'CreateObject-Test',
oForm.Position := poScreenCenter,
oBtnC := CreateObject('TButton', 'BtnC', oform, oForm),
oBtnC.Width := 150,
oBtnC.Height := 20,
oBtnC.Top := 20,
oBtnC.Left := 20,
oEdit := CreateObject('TBeEdit', 'Edit', oBtnC, oForm),
oEdit.Top := 100,
oEdit.Left := 20,
oEdit.Text := 'Hello World',
AssignEvent(oBtnC, 'OnClick', 'DoOnBtnCClick'),
if ShowModal(oForm) = 1 then
Meld('Der Rückgabewert des Formulares ist 1'),
endif,