Pascal 7 & Objects



Изменение имени класса


-----------------------------------------------------------------

GetClassName - это функция, которая возвращает имя (PChar) класса окна. TWindow.GetClassName возвращает 'TurboWindow', имя используемого по умолчанию класса окна. TWindow.GetClassName возвращает 'TurboWindow' - имя используемого по умолчанию класса окна:

function TWindow.GetClassName: PChar; begin GetClassName := 'TurboWindow'; end;

Чтобы определить тип объекта окна с именем IBeamWindow, ко- торый использует вместо стандартной стрелки I-образный курсор, переопределите наследуемый метод следующим образом:

function TBeamWindow.GetClassName: PChar; begin GetClassName := 'IBeamWindow'; end;

Примечание: Имя класса не обязательно должно соответс- твовать имени объектного типа.

Имя класса должно быть уникальным.




Содержание  Назад  Вперед