Mega Code Archive

 

Categories / Delphi / Activex OLE

 

Insert popup-menu items for ms agent component

procedure TForm1.FormCreate(Sender: TObject); begin Agent1.Characters.Load('Merlin', 'merlin.acs'); with Agent1.Characters.Item['Merlin'] do begin Show(0); Commands.Add('Test', '&Test', 1, 1, True); Commands.Add('Demo', '&Demo', 1, 1, True); end; end; procedure TForm1.Agent1Command(ASender: TObject; const UserInput: IDispatch); var Cmd: IAgentCtlUserInput; begin Cmd := UserInput as IAgentCtlUserInput; if Cmd.Name = 'Test' then Agent1.Characters.Item['Merlin'].Speak('Test', '') else if Cmd.Name = 'Demo' then Agent1.Characters.Item['Merlin'].Speak('Demo', ''); end;