Вопрос № 30049: 1. Не получается выполнить табуляцию в TextBox. Свойство формы KeyPreview = True, но и KeyDown и KeyPress вместо отступа перемещают фокус на следующий Control. Причем если фокусу перемещаться некуда (единственный объект или во всех Control TabIndex =...
Вопрос № 30.049
1. Не получается выполнить табуляцию в TextBox. Свойство формы KeyPreview = True, но и KeyDown и KeyPress вместо отступа перемещают фокус на следующий Control. Причем если фокусу перемещаться некуда (единственный объект или во всех Control TabIndex = False ), то вставляются сразу два символа Chr(9), при обоих событиях - три. В RichTextBox табуляция хоть и работает, но также с потерей фокуса, и его приходится программно возвращать обратно (RichTextBox1.SetFocus), что, по-моему, как-то не правильно. На всякий
случай в приложении - пример кода.
2. Как программно выделить весь текст?
Спасибо всем, кто найдет время ответить на эти вопросы.
Отвечает: Чурсанов Евгений Ильич
Здравствуйте, Зыков Олег Евгеньевич!
2. Смотри простой пример в приложении.
В RichTextEdit аналогично.
Приложение:
--------- Создайте систему, которой сможет пользоваться дурак, и только дурак захочет ею пользоваться.
Ответ отправил: Чурсанов Евгений Ильич (статус: 7-ой класс)
Отправлен: 22.11.2005, 23:23
Отвечает: _Виталий
Здравствуйте, Зыков Олег Евгеньевич!
1. Свойство формы KeyPreview можете не менять, оно не влияет. В обработках KeyDown и KeyPress тоже никакой код не нужен. А чтоб работал ТАВ нужно:
1) Нужно установить свойство TabStop = False для всех элементов управления в активной форме.
2) Свойство Text1.MultiLine = True (конечно для каждого текстбокса где нужен ТАВ)
Ответ отправил: _Виталий (статус: 9-ый класс)
Отправлен: 23.11.2005, 10:30
Отвечает: Залетин Виталий Викторович
Здравствуйте, Зыков Олег Евгеньевич!
1. Text1.MultiLine=True и ненадо никакого KeyPreview!
2. -----------------------------------------------------------------------
With Text1
.SelStart=0
.SelLength=Len(.Text)
End With
----------------------------------------------------------------------------
--------- Учиться никогда не поздно. Особенно программированию!