Вот к примеру и Rush-панель и всплывающее контекстное меню тоже "убивают" каретку.
code_37603.txt (левым кликом по форме вызовите всплывающее меню, выберете любой пункт)
------------ Дoбавленo в 14.39:
А вот ClipboardHook вроде (один раз как-то получилось) не "болеет" этой проблемой, но событие тоже идет от OnMessage.
Add(MainForm,6880721,252,112)
{
Width=657
Height=349
Point(onMouseDown)
}
Add(PaintBox,2386737,350,238)
{
Left=285
Top=165
Color=65535
Point(onMouseDown)
link(onMouseDown,781881:doWork2,[(533,251)(533,209)])
}
Add(Edit,8864697,609,182)
{
Left=535
Top=130
Point(doVisible)
}
Add(ChanelToIndex,781881,539,196)
{
link(onIndex,8864697:doVisible,[])
}
Add(ClipboardHook,10370170,350,196)
{
link(onChange,781881:doWork1,[])
}
Add(Memo,13537280,406,28)
{
Left=235
Top=25
Width=135
Height=125
Strings=#79:скопируйте этот текст в буфер обмена (выделеить, Ctrl+C) или нажмите кнопку >>>|
}
Add(ClipboardHook,10276404,406,91)
{
link(Text,13537280:Text,[])
}
Add(Button,13576236,357,91)
{
Left=380
Top=65
link(onClick,10276404:doSetText,[])
}
Поиск
Друзья
Администрация