[nixon232]

Можно сделать так:

Код:

Type
SomeClass = class(TTestForm)
  end;

А как можно сделать такой класс

Код:

Type
  #32770= class(TTestForm)
  end;

[dcc32 Error] uTest.pas(53): E2029 Identifier expected but string constant found

[dr. F.I.N.]

Для имен переменных, классов, типов и т.д. в Delphi есть правила.

Имена.
Имена используются при создании переменных, констант, функций, процедур.

Правила описания.
- Могут содержать символы латинского алфавита, цифры и символ подчёркивания.
- НЕЛЬЗЯ использовать в качестве имён зарезервированные слова языка DELPHI
- Имя должно начинаться только с буквы или символа подчёркивания.

Какую цель Вы преследуете? Возможно есть решение Вашей задачи, исключающее использование "некорректных" имен классов.

[nixon232]

Сообщение от dr. F.I.N.

Для имен переменных, классов, типов и т.д. в Delphi есть правила.

Какую цель Вы преследуете? Возможно есть решение Вашей задачи, исключающее использование "некорректных" имен классов.

я работаю некоторым образом с чужими окнами типа #32770. Это по сути стандартные диалоговые окна Windows (насколько я понял). Мне было бы удобно создать свое такое окно (в дебаг целях). Сейчас я использую EnumWindows и проверяю как-то так:

Код:

  ...
    begin
      if (ACLassName = '#32770') or (CN = 'TMy32770') then
      begin
...

, но думал убрать сей костыль, но как не нашел, разве что писать окно на чистом WinApi + CreateWindowEX.

[dr. F.I.N.]

Ваш класс может называться как угодно. Если вы его наследуете от 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;

Написал на коленке, может быть неточность.

[nixon232]

Именно то, что нужно, код корректный, никаких ошибок, благодарю.