Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

меню к MsAgent   Найти похожие ветки 

← →
DIS   (2004-05-21 15:27) [0]

Как добавить к MsAgent вызов меню по двойному щелчку?
Знаю, что есть событие OnDblClick, но как его осуществить?

---

← →
DIS   (2004-05-21 22:14) [1]

может использовать command.add но при этом выдаёт ошибку.

---

← →
DIS   (2004-05-22 23:10) [2]

нашел код к Visual Basic как его перевести на Delphi не знаю
<SCRIPT LANGUAGE="VBScript">
Dim myAgent
Set myAgent = CreateObject("Agent.Control.2")
If IsObject(myAgent) Then myAgent.Connected = True

Function ShowDef()
 myAgent.Characters.Load "merlin"
 Set merlin = myAgent.Characters("merlin")
 merlin.Commands.Add "TimeCommand", "Который час?"
 merlin.Commands.Add "NameCommand", "Как тебя зовут?",,false
 merlin.Show
 alert "Щелкни правой кнопкой на персонаже!"
End Function
</SCRIPT>

---

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

Текущий архив: 2004.06.06;
Скачать: CL | DM;

Наверх

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