ModalResult()
ModalResult() – Modales Fenster schließen
Die Funktion schließt ein modal geöffnetes Fenster (z.B. durch ShowModal()), indem aModalValue ein anderer Wert als mrNone zugewiesen wird.
Parameter | Beschreibung |
|---|---|
aFormObject:O | Fensterobjekt |
aModalValue:N | Rückgabewert von ShowModal() |
Rückgabewert
keiner
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,