Процедура SetWindowTitle

Назначение

Процедура изменяет заголовок одного из окон. Если параметр wNum равен константе wnMainWindow, то изменяется заголовок главного окна.

Описание

procedure SetWindowTitle (wNum : integer; iTitle : string);

Параметры

wNum : integer - окно, которому меняем заголовок.

iTitle : string - новый заголовок.

Примечание

Доступны константы с идентификаторами, совпадающими с идентификаторами окон и со значениями, равными их номерам.

Пример

В примере описан двух панельный интерфейс для ввода сотрудников и их детей. Панель для ввода детей описана в отдельном окне. Заголовок этого окна динамически изменяется в зависимости от текущего значения поля Employee_Name.

interface employeesAndChildrens;
  create view as select * from Employee,Children
	where (Employee.Code == Children.Parent);
  window childrensWindow;
	panel childrenPanel;
	browse allChildren;
		fields
		Children_Name;
		Children_Birthday;
	end; // browse
	end; // panel
  end; // window
  panel employeesPanel;
	screen employeeScreen;
	fields
		Employee_Name;
<<
   Имя сотрудника .@@@@@@@@@@@@@@@@@@
>>
	end; //screen
	handleEvent
	cmPositionChanged:
		SetWindowTitle(childrensWindow,
		'Дети сотрудника '+Employee_Name);
	end; // handleEvent
  end; // panel
end. // interface