EditChangeSel()
EditChangeSel() – Editfeld-Text markieren
Die Funktion markiert den Text eines von TBeEdit abgeleiteten Edit-Feldes. Es wird der Text von aSelStart bis aSelLength markiert, wobei das erste Zeichen 0 ist. Wird aSelLength nicht übergeben, wird lediglich der Cursor innerhalb des Edit-Feldes versetzt.
Parameter | Beschreibung |
---|---|
aEditObject:O | Edit-Objekt |
aSelStart:N | Start des markierten Textes |
aSelLength:N | Länge des markierten Textes; default |
Rückgabewert
Objekt - Edit-Objekt
Beispiel
| oForm, oBtnC, oEdit |
function DoOnBtnCClick(sender)
oForm.ActiveControl := oEdit,
EditChangeSel(oEdit, 0, 5),
end,
oForm := CreateObject('TForm'),
oForm.BorderStyle := bsSingle,
oForm.Width := 200,
oForm.Height := 400,
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', oForm, oForm),
oEdit.Top := 100,
oEdit.Left := 20,
oEdit.Text := 'Hello World',
AssignEvent(oBtnC, 'OnClick', 'DoOnBtnCClick'),
ShowModal(oForm),