Invalidate() – Neuzeichnen eines Controls auslösen
Verwenden Sie Invalidate, wenn das gesamte Steuerelement neu gezeichnet werden muß. Wenn mehrere Bereiche innerhalb des Steuerelements neu aufgebaut werden müssen, zeichnet Invalidate das gesamte Fenster ohne Bildschirmflackern neu.
Es wirkt sich auch nicht negativ auf die Ausführungsgeschwindigkeit aus, wenn Invalidate vor dem Neuzeichnen des Steuerelements mehrere Male aufgerufen wird.
|
Parameter |
Beschreibung |
|---|---|
|
aControl:O |
Control |
Rückgabewert
keiner
Beispiel
| oForm, oBtnC, oEdit |
function DoOnBtnCClick(sender)
Invalidate(oEdit),
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'),
ShowModal(oForm),