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

  '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