EDIT


zur allgemeinen Verwendung s. die Beschreibung zum Dialogeditor

Enthält das EDIT-Control bereits Text und soll weiterer Text an der Cursorposition eingefügt werden, ist dies mit der folgenden Prozedur möglich.

VBScript
'Fügt Text in ein Textfeld an Cursorposition ein
Sub InsertInTextBox(sDlg, sControl, sText)
    Const EM_GETSEL = &H00B0
    Dim lPos
    Dim lSelStart
    Dim lSelEnd
    Dim sControlText
 
    lPos = CLng(FF_SendControl(sDlg, sControl, EM_GETSEL, 0, 0))
    lSelStart = lPos And &HFFFF&
    lSelEnd = (lPos \ &HFFFF&)
    sControlText = FF_GetControl(sDlg, sControl)
    FF_SetControl sDlg, sControl, Left(sControlText, lSelStart) & sText & Mid(sControlText, lSelEnd + 1)
End Sub