Скачать: CL | DM;

Предотвращение получения фокуса ввода с клавиатуры в компонент 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, и тогда можно красиво оформить текст :))

---

← →
КаПиБаРа ©   (2004-09-08 06:17) [6]

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 не появляется, и текст никуда не сдвигается. При этом шрифт, стиль текста остаются без изменений.
Таким образом, этот вопрос закрыт.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c