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

[L.L.R.R.]

Вопрос в следующем.
Как можно проверить "наличие отсутствия" MDI child окна, не вызвав при этом exception и не загадив Test Log сообщениями об ошибке типа "Window not found"? Я пробовал "в лоб" через Window.Exists - ничего не вышло.

Спасибо.

[Юстус]

Добрый день,

Вот пример:

procedure Main;
var p : OleVariant;
begin
p := Sys.Process('EXCEL');

if p.WaitWindow('XLMAIN', 'Microsoft Excel - Book1').Exists then
Log.Message('Book1 found')
else
Log.Message('Book1 not found');

if p.WaitWindow('XLMAIN', 'Microsoft Excel - Book2').Exists then
Log.Message('Book2 found')
else
Log.Message('Book2 not found');
end;

При запущенном Excel 2003 с одним документом-(mdi окном - Book1) имею в TestLog:

Message Time Priority Description

Book1 found 8:54:16 PM 2
Book2 not found 8:54:16 PM 2