Изменение имени класса
-----------------------------------------------------------------
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;
Примечание: Имя класса не обязательно должно соответс- твовать имени объектного типа.
Имя класса должно быть уникальным.
