Вниз
Скачать: CL | DM;

Проблема с фокусом   Найти похожие ветки 

← →
AlexanderMS ©   (2006-05-07 19:41) [0]

Проблема в следующем. Отображено 2 формы: основная и окно поиска (собственное, а не FindDialog). Когда фрагмент найден, фокус перемещается с окна поиска на основное, а именно на RichEdit. В этом случае кнопка на окне поиска (с Default = true) по клавише Enter не доступна, приходится на форму мышкой щёлкать, а иначе происходит редактирование RichEdit. Подскажите, пожалуйста, как решить эту проблему?


← →
Leonid Troyanovsky ©   (2006-05-07 19:47) [1]


> AlexanderMS ©   (07.05.06 19:41)  

>  Подскажите, пожалуйста, как решить эту проблему?


Не перемещать фокус на RichEdit?

--
Regards, LVT.


← →
Мефисто   (2006-05-07 19:50) [2]

По завершении поиска:

TForm.Activate;
TForm.SetFocus;

?


← →
AlexanderMS ©   (2006-05-07 20:27) [3]


> Не перемещать фокус на RichEdit?

Если не перемещать, то не видно выделение фрагмента в RichEdit.


> TForm.Activate;
> TForm.SetFocus;


Которая? В любом случае не получается.


← →
ЛшдлуттнСфе   (2006-05-07 20:33) [4]

после отработки выделения верните фокус кнопке.
Button1.SetFocus;


← →
Leonid Troyanovsky ©   (2006-05-07 20:34) [5]


> AlexanderMS ©   (07.05.06 20:27) [3]

> Если не перемещать, то не видно выделение фрагмента в RichEdit.


HideSelection?

--
Regards, LVT.


← →
ЛшдлуттнСфе   (2006-05-07 20:37) [6]

А, кажется я понял.
При потери фокуса, ричедит действительно скрывает выделенное (или сбрасывает совсем, не проверял).
В этом случае, возможно два варианта:
сложный: воспользоваться возможностью атрибутов текста и поддержать выделение.
простой: перехватить нажатие клавиши в ричедите непосредственно.


← →
AlexanderMS ©   (2006-05-07 20:47) [7]


> ЛшдлуттнСфе   (07.05.06 20:37) [6]


Спасибо. Я предпочту простой.

P.S. ЛшдлуттнСфе = KilkennyCat, я так понимаю.


← →
ЛшдлуттнСфе   (2006-05-07 21:03) [8]


> P.S. ЛшдлуттнСфе = KilkennyCat, я так понимаю.


Да.



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

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



Память: 0.46 MB
Время: 0.029 c
2-1146207157
gerakla
2006-04-28 10:52
2006.05.21
Помогите мну


15-1145732092
DBwewq
2006-04-22 22:54
2006.05.21
Помогите пожалуйста! В чем ошибка! timer:longint absolute $40:$6c


2-1146475009
Максо
2006-05-01 13:16
2006.05.21
Image


2-1146654847
Perf2k2
2006-05-03 15:14
2006.05.21
Данные из базы в ComboBox - не получается


3-1143485761
beglec
2006-03-27 22:56
2006.05.21
Как узнать сколько индексов у таблицы? Paradox.




   Наверх