Skip to main content
Skip table of contents

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


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.