Тема: ClassName
Показать сообщение отдельно
  #4  
Старый 30.04.2018, 11:19
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Ваш класс может называться как угодно. Если вы его наследуете от TWinControl или его потомков, то можете переопределить процедуру CreateParams и в ней установить необходимое имя класса окна (В процедуре TWinControl.CreateParams в поле Params.WinClassName копируется имя вашего класса).

Код:
type
  TClass_32770 = class(TTestForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
.....
procedure TClass_32770.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WinClassName := '#32770';
end;

Написал на коленке, может быть неточность.
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием