| Процедура
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 |