Перефокусировка на веб компонент

Форумы Между деломПерефокусировка на веб компонент ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 110

Рейтинг: 9

#1: 2009-12-12 16:20:51 ЛС | профиль | цитата

Здравствуйте
Прошу Вас помочь мне разобраться с одной проблемкой.
code_15973.txt
При загрузке страницы в веб компонент из текстовой строки фокусировка на компоненте ввода текста (любого) не меняется.
Но если была установлена фокусировка на веб компонент хоть один раз во время работы программы, то при последующих загрузках "страницы" происходит установка фокуса на веб компонент, хотя на нём события "onSetFocus" не происходит, и фокусировка компонентом ввода текста теряется.
Очень неудобно, когда при вводе текста "теряются" буквы, из-за установки фокуса на веб компонент.
Также пробовал делать "постоянную" фокусировку на компоненте ввода текста, но это не помогает.

С чем это может быть связано, и как это устранить

карма: 0

Ответов: 1328

Рейтинг: 69

#2: 2009-12-13 12:04:04 ЛС | профиль | цитата

Maestroprog, перезалей свой пример

карма: 2

Ответов: 110

Рейтинг: 9

#3: 2009-12-13 12:20:20 ЛС | профиль | цитата

Вот, пожалуйста

code_15979.txt

карма: 0

Ответов: 2478

Рейтинг: 698

#4: 2009-12-13 12:28:51 ЛС | профиль | цитата

Maestroprog, ты попробуй посмотреть что выложил. Снова error.

карма: 11

Ответов: 110

Рейтинг: 9

#5: 2009-12-13 13:09:06 ЛС | профиль | цитата

Тогда так..


Add(MainForm,2953706,105,105)
{
}
Add(Edit,3269940,56,189)
{
 Left=5
 Top=5
 Width=380
 link(onChange,154723:doFromText,[])
}
Add(WebBrowser,154723,105,161)
{
 Left=5
 Top=30
 Width=380
 Height=230
 Point(doFromText)
 Point(onSetFocus)
 link(onSetFocus,15188545:doMessage,[])
}
Add(Message,15188545,161,189)
{
}

карма: 0

Ответов: 1328

Рейтинг: 69

#6: 2009-12-13 15:27:46 ЛС | профиль | цитата

Maestroprog, из твоего примера не понятно что ты хочешь

карма: 2

Ответов: 970

Рейтинг: 270

#7: 2009-12-13 15:32:29 ЛС | профиль | цитата

конечно не очень хорошо, но у меня работает)

code_15979.txt

карма: 0

файлы: 1

code_15979.txt [383B] [65]

Голосовали:

Maestroprog

Ответов: 110

Рейтинг: 9

#8: 2009-12-13 15:37:53 ЛС | профиль | цитата

Genius, Конечно я так делал, согласен, что не хорошо. Но все равно спасибо

------------ Дoбавленo в 15.48:
Я вот думал, может в исходном коде hiWebBrowser.pas нужно что то поменять, чтобы решить эту проблему.
Дело все в том, что я сам мало что понимаю в исходнике

Возможно эта проблема нерешаема, т.к. все дело в IE...

карма: 0

Ответов: 1328

Рейтинг: 69

#9: 2009-12-13 17:17:45 ЛС | профиль | цитата

А так чем не устраивает?
code_15981.txt

карма: 2

Голосовали:

Genius, Maestroprog

Ответов: 110

Рейтинг: 9

#10: 2009-12-13 21:13:26 ЛС | профиль | цитата

У меня, почему то, срабатывает только с таймером (событие происходит через 0 секунд с одной интеграцией)


Add(MainForm,14638982,238,217)
{
}
Add(Edit,3269940,301,245)
{
 Left=5
 Width=380
 Font=[aRIAL,10,0,0,1]
 Point(doSetFocus)
 link(onChange,3072411:doEvent1,[])
}
Add(WebBrowser,154723,392,217)
{
 Left=5
 Top=30
 Width=380
 Height=230
 Point(doFromText)
 Point(onSetFocus)
}
Add(Hub,3072411,350,245)
{
 link(onEvent1,154723:doFromText,[])
 link(onEvent2,6497631:doTimer,[(374,258)(374,272)])
}
Add(Timer,6497631,385,266)
{
 Interval=0
 AutoStop=1
 link(onTimer,3269940:doSetFocus,[(429,272)(429,308)(289,308)(289,265)])
}

Вобщем всем спасибо

карма: 0

Ответов: 1328

Рейтинг: 69

#11: 2009-12-14 00:48:46 ЛС | профиль | цитата

Maestroprog, странно у меня работает и на 4.02 179 и на 4.04 182+UP
а попробуй так:


Add(MainForm,14638982,273,154)
{
}
Add(Edit,3269940,315,210)
{
 Left=5
 Width=380
 Font=[aRIAL,10,0,0,1]
 Point(doSetFocus)
 link(onChange,3072411:doEvent1,[])
}
Add(WebBrowser,154723,399,182)
{
 Left=5
 Top=30
 Width=380
 Height=230
 Point(doFromText)
 Point(onSetFocus)
}
Add(Hub,3072411,357,210)
{
 link(onEvent1,154723:doFromText,[])
 link(onEvent2,2064843:doTimer,[(384,223)(384,267)(240,267)(240,230)])
}
Add(Timer,2064843,252,224)
{
 Interval=1
 Enable=1
 AutoStop=1
 link(onTimer,3269940:doSetFocus,[])
}

карма: 2

Форумы Между деломПерефокусировка на веб компонент ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)