Перейти к содержимому

Фотография

Есть ли функции, возвращающие название активной формы в виде строки


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1 Rabbit

Rabbit

    Новый участник

  • Members
  • Pip
  • 3 сообщений
  • Город:Москва


Отправлено 06 мая 2011 - 19:35

Доброго времени суток!

Такой вопрос: в приложении есть несколько форм с одинаковым тулбаром. Можно ли написать процедуру для теста тулбаров, но чтобы она была применима на всех этих формах? Т.е. проблема в том, что названия кнопок совпадают, а форм отличаются. Есть ли функции, возвращающие название активной формы в виде строки?

Понимаю, что вопрос может быть глупый, но я только начинаю постигать TestComplete и эта ситуация поставила в тупик.

Язык приложения Delphi 7, скриптовой язык в тесткомплите тоже Дельфи. Версия тесткомплита 7.50.
  • 0

#2 ksena

ksena

    Активный участник

  • Members
  • PipPip
  • 99 сообщений
  • Город:Харьков


Отправлено 07 мая 2011 - 04:15

Есть ли функции, возвращающие название активной формы в виде строки?

ActiveWindow: OleVariant;
ActiveWindow := Sys.Desktop.ActiveWindow - возвращает активное окно

WindowName: string;
WindowName := ActiveWindow.Name - имя
или
WindowName := ActiveWindow.FullName - полное имя с путем
Но я бы вам не рекомендовала заморачиваться активными окнами, просто напишите процедуру где будут проверяться кнопки, а форму передавайте как параметр, например:
procedure AssertFormButtons(aForm: OleVariat);
begin
Assert('Проверка активности кнопки 1', aForm.Panel1.Buotton1.Enabled, true);
end;

AssertFormButtons(sys.Process1.Form1);
  • 0

#3 Rabbit

Rabbit

    Новый участник

  • Members
  • Pip
  • 3 сообщений
  • Город:Москва


Отправлено 07 мая 2011 - 17:38

Большое спасибо!
  • 0


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных