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

CODE

| 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),