Сообщение "Да Нет Отмена"

[Fordewind]

Цитата:

Сообщение от Dimch

Добрый день! Необходимо показывать сообщение (типа CONFIRM) с кнопками выбора Да,Нет,Отмена.
Создавать для этого отдельную форму или использовать STRMENU не хочется.

Сделал так:

IF CREATE(objScript,TRUE) THEN
BEGIN
CR := ' '; CR[1] := 13;
objScript.Language := 'VBScript';
objScript.AddCode(
'function Confirm(who)'+CR+
' Confirm = MsgBox("Òîâàð "&item, 3, "Test")'+CR+
'end function');
s:=objScript.*evаl*('Confirm("Âîïðîñ")');
END;

Но окошко появляется и тут же скрывается под окном клиента NAV. Как это побороть?
Или есть альтернативные решения?

А зачем столько вариантов действий пользователя? Можно пример? Мне всегда двух кнопок хватало...

[.Quattro.]

http://msdn.microsoft.com/en-us/library/x83z1d9f(VS.85).aspx

В наве это будет примерно так:

WShell: Automation 'Windows Script Host Object Model'.WshShell	
Title: Text 30
Buttons: Integer
SecToWait: Integer
ResInt: Integer
***************
Title := 'Заголовок сообщения';
Buttons := 3;
CREATE(WShell);
ResInt := WShell.Popup('Текст сообщения',SecToWait,Title, Buttons);

Message('%1', ResInt);