Процедура SetWindowTitle (Integer, String)
Top  Previous  Next


Назначение  
Процедура изменяет заголовок одного из окон. Если параметр WNum равен константе wnMainWindow, то изменяется заголовок главного окна. SetTabbedSheetTitle 
Описание  
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