能不能关掉does not have a corresponding component报警提示？

[hiloves]

在主窗体中写了一个自定义类，不是VCL控件，结果每次保存或编译都会出现does not have a corresponding component报警提示，但程序能正常运行，这个提示很烦，而且点确定，还会自动把你定义的类删掉。

TMyForm = class(TForm)
private
  MyClass : TMyClass;自己定义的类，不是VCL组件类。

[hiloves]

要沉了

[hiloves]

会沉的

[支持中文哦]

我只知道如果TFrame的定义如果删除某个组件，然后直接操作TFrame某个实例，就会有这个错误

[wooden954]

你的类TMyClass是在哪个单元中定义的，引用这个单元了没有？如果没有引用单元，很容易发生类似的错误。

[hiloves]

当然要引用了TMyClass所在的单元，楼上的，如果不引用单元出现的错误是，Undeclared identifier，并且无法编译更不要说正常运行了，这和does not have a corresponding component完全不是一码事，出现这个错误是因为该类不是标准VCL控件，该类不能放到主窗体中。

[hiloves]

沉底了

[huangheguyun]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

{自定义的 TMyList 类}
TMyList = class(TObject)

end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
myList: TMyList; {声明一个 TMyList 类的变量}
begin
myList := TMyList.Create;
ShowMessage(myList.ClassName); {TMyList}
myList.Free;
end;

end.

[hiloves]

这确实是一种方法。