Сообщений в теме: 5

[Alexandra]

Задача состоит в том, чтоб сделать активным только что вызванное окошечко.
А как ручкми это сделать?

[Nadezhda]

Так пробовали?
Window SetContext, "CurrentWindow", ""

[Alexandra]

Конечно.
Но дело в том, что у меня в процессе выполнения скрипта куча окон образуется. И мне нужно конкретное.

А CurrentWindow оно не постоянно=(((

[Nadezhda]

Я наверное неправильно поняла вашу проблему... Вы написали "только что вызванное", поэтому я предложила CurrentWindow.
Вы заранее не знаете, какой у окна, которое вам нужно, будет Title?

[{Bastion}Bizon]

Запоминайте контекст выбранного окна в какю нибуть глобальную переменную и вызывайте её когда нужно.


Dim Window1 as String
Window SetContext, "CurrentWindow", ""
Window 1 = "CurrentWindow"
...
...
...
Window SetContext, Window1, ""

Если не знаете в какой момент появится нужное вам окно, то при появлении каждого следующего окна получаете контекст и присваиваете его какой-нибуть переменной. Потом производите сравнение с искомым эталоном. Когда совпал, хлопайте в ладоши и делайте с окном то, что вам нужно.

[Alexandra]

задача выглядет так:
на страницу тыкается ссылка-> открывается дочернее окошко, на нем тыкается правая клавиша мыши и выбирается принт, в открывшемся окне, жмется окей.

вот.если применять Current window, то у меня от запуска плейбека к запуску ситуация не стабильна, что когда-то левая клавиша тыкается на дочернем окне, а когда на родительском.
Более того, я не могу последовательно окна по закрывать.
код у меня примерно такой:


startbrowser URL, "WindowTag=WEBBrowser"
PartOfCaption = "Caption="
Window SetContext, "CurrentWindow", ""

Result = SQAGetProperty("Type=Window;CurrentWindow","Caption",title)
HTMLLink Click, "Type=HTMLLink; HTMLText=Printer-friendly view", ""
PartOfCaption=PartOfCaption & title

Result=SQAWaitForObject("PartOfCaption;ChildWindow", 3000)
if Result>0 then
DelayFor(2000)

HTMLTable Right_Click, "Index=5", "Row=1;Col=1"
PopupMenuSelect "Print"

Window SetContext, "Caption=Print", ""
PushButton Click, "Text=Print"

Window SetContext, "Caption=Save PDF File As", ""
PushButton Click, "Text=Cancel"

Window SetContext, "CurrentWindow", ""
Window CloseWin, "", "" // вот это не срабатывает.


else
SQALogMessage sqaFail, "The object is absent", ""
end if