====== EDIT-Control ======
Uur allgemeinen Verwendung siehe 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**

<code VBScript [enable_line_numbers="true"]>
  '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
</code>