The_naked
Есть событие OnSelectStart
Пример использования:
Код:
<table BORDER="8" BgColor="red" WIDTH="65%" cellspacing=8>
<tr><td>
<p ID="paraSelectStart">Выбор любого элемента из этого текста заставит изменять его цвета ... иногда дико
<script LANGUAGE="VBScript">
<!--
Sub paraSelectStart_onselectstart()
Dim hexColor
Dim hexColor2
hexColor=hex(rnd*16777215)
if hexColor>"ffffff"then hexColor="ffffff"
hexColor2=hex(rnd*16777215)
if hexColor2>"ffffff"then hexColor2="ffffff"
on error resume next
set elRef=document.all("paraSelectStart")
elRef.style.backgroundColor=hexColor
elRef.style.color=hexColor2
self.event.returnValue=false
End Sub
//-->
</script>
</td></tr>
</table>