Предотвращение получения фокуса ввода с клавиатуры в компонент Me

← →
SMT (2004-09-07 17:51) [0]

Уважаемые мастера,

Как предотвратить получение фокуса ввода с клавиатуры компонентом Memo на форме, чтобы в нем не появлялся курсор после нажатия клавиш на клавиатуре в предыдущей форме?

Игорь Степанов

← →
wicked © (2004-09-07 18:07) [1]

Memo1.Enabled := false;

← →
begin...end © (2004-09-07 18:47) [2]

Или - обрабатывать OnEnter ?

← →
SMT (2004-09-07 21:24) [3]

Если утсановить Memo1.Enabled:=False, то текст, помещенный в Memo, становится блеклым, а задача состоит в том, чтобы текст был хорошо читаемым, так как он информирует пользователя о работе с программой, то есть дает инструкцию.

Что еще можно сделать?

С уважением,
Игорь Степанов

← →
wl (2004-09-07 22:38) [4]

может на форме есть какая-нить кнопка, или что-то, принимающее фокус? тогда передать на нее фокус чем-нить вроде TheButton.SetFocus() или Form.ActiveControl := TheButton

← →
wl (2004-09-07 22:49) [5]

ээээ, не понял сути вопроса, похоже надо чтобы он ВООБЩЕ туда не передавался - в таком случае либо использовать что-то не принимающее фокуса ввода - например TLabel, а если текст нужно скроллировать, тогда TWebBrowser, и тогда можно красиво оформить текст :))

SMT (07.09.04 17:51)

SetWindowLong(Memo1.Handle, GWL_STYLE, GetWindowLong(Memo1.Handle, GWL_STYLE) or WS_DISABLED);

======================================== Когда не достигают желаемого делают вид, что желали достигнутого. ========================================

← →
SMT (2004-09-09 17:23) [7]

Уважаемые мастера,

Большое спасибо за советы. Я поэкспериментировал и обнаружил, что лучше всего использовать в методе OnShow формы строку SetWindowLong(Memo1.Handle, GWL_STYLE, GetWindowLong(Memo1.Handle, GWL_STYLE) OR WS_DISABLED), как предложил уважаемый КаПиБаРа.
Больше Memo1 не реагирует на нажатие клавиш на клавиатуре и никакого курсора в Memo1 не появляется, и текст никуда не сдвигается. При этом шрифт, стиль текста остаются без изменений.
Таким образом, этот вопрос закрыт.

Большое спасибо за советы.
С уважением, Игорь Степанов

Предотвращение получения фокуса ввода с клавиатуры в компонент Me Найти похожие ветки