GetClass не возвращает значения

← →
qwe (2003-11-06 12:11) [0]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
frmClass : TFormClass;
begin
frmClass:=TFormClass(GetClass("TFrom1"));
if not Assigned(frmClass) then ShowMessage("no")
else ShowMessage("yes");
end;
end.

Почему?

← →
Юрий Зотов (2003-11-06 12:14) [1]

1. Потому что "TFrom1" и "TForm1" - вовсе не одно и то же.
2. Потому что нет вызова RegisterClass - см. справку.

← →
qwe (2003-11-06 12:16) [2]

Form classes and component classes that are referenced in a form declaration (instance variables) are automatically registered when the form is loaded.

так как мне в данном случае получить "yes"

← →
Юрий Зотов (2003-11-06 12:21) [3]

> qwe (06.11.03 12:16) [2]

Исправить ошибку.

← →
qwe (2003-11-06 12:22) [4]

Ткните носом, пока что не могу понять

← →
Юрий Зотов (2003-11-06 12:27) [5]

"TF ro m1" и "TF or m1" - вовсе не одно и то же.

← →
qwe (2003-11-06 12:31) [6]

Да надо корректно вопрос писать в коде у меня все норамально, но результат тот же

← →
Юрий Зотов (2003-11-06 12:34) [7]

В initialization или в OnCreate: RegisterClass(TForm1)

← →
qwe (2003-11-06 16:10) [8]

А как можно посмотреть список зарегестрированных классов

← →
qwe (2003-11-06 16:48) [9]

и еще вопрос когда подключаю bpl и в секции initialization подключаемой формы ставлю RegisterClass(TFormChild) то не работает

← →
Vuk (2003-11-06 17:06) [10]

Вообще говоря, средств просмотра зарегистрированных классов нет.
И еще.

>Form classes and component classes that are referenced in a form
>declaration (instance variables) are automatically registered
>when the form is loaded.
Вот это, оно хотя и из Help, но истине не соответствует. Никакой регистрации классов не производится.

GetClass не возвращает значения Найти похожие ветки