Show()
Show() – Objekt anzeigen
Die Funktion blendet ein Control ein. Dazu wird die Eigenschaft Visible auf true gesetzt. Ein Objekt kann mit Hilfe von Hide() bzw Visible = false ausgeblendet werden.
Parameter | Beschreibung |
|---|---|
aFormObject:O | Objekt, welches angezeigt werden soll |
Rückgabewert
keiner
Beispiel
CODE
| oForm, oBtnShow, oBtnHide, oLabel |
function DoHide()
Hide(oLabel),
oBtnHide.enabled := false,
oBtnShow.enabled := true,
end,
function DoShow()
Show(oLabel),
oBtnHide.enabled := true,
oBtnShow.enabled := false,
end,
oForm := CreateObject('TForm'),
oForm.BorderStyle := bsSingle,
oForm.Width := 366,
oForm.Height := 120,
oForm.Caption := 'Hide() und Show()',
oForm.Position := poScreenCenter,
oBtnShow := CreateObject('TButton', 'BtnShow', oForm, oForm),
oBtnShow.Width := 150,
oBtnShow.Height := 20,
oBtnShow.Top := 10,
oBtnShow.Left := 10,
oBtnShow.enabled := false,
oBtnHide := CreateObject('TButton', 'BtnHide', oForm, oForm),
oBtnHide.Width := 150,
oBtnHide.Height := 20,
oBtnHide.Top := 10,
oBtnHide.Left := 190,
oLabel := CreateObject('TLabel', 'Label', oForm, oForm),
oLabel.Width := 150,
oLabel.Height := 20,
oLabel.Caption := 'Mich kann man verstecken und wieder anzeigen!',
oLabel.Top := 60,
oLabel.Left := 60,
AssignEvent(oBtnShow, 'OnClick', 'DoShow'),
AssignEvent(oBtnHide, 'OnClick', 'DoHide'),
ShowModal(oForm),