RichTextBox Отмена переноса по словам

[vfedorov]

В RichTextBox по умолчанию стоит перенос по словам, т.е. когда строчка доходит до границу контрола, она автоматически переводится на новую. Как сделать так, чтобы она не переводилась на новую автоматически (а переводилось только по нажатию Enter). Т.е. было как в блокноте.

Заранее спасибо

[hCORe]

Код: Выделить всё

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) As Long
Private Const EM_SETTARGETDEVICE = 1096

Private Sub Form_Load()
     SendMessageLong RichTextBox1.hwnd, EM_SETTARGETDEVICE, 0, 1
End Sub

[vfedorov]

Огромное спасибо

[alibek]

Можно и без API, задать RightMargin.