城
城里的月饼
Unregistered / Unconfirmed
GUEST, unregistred user!
我自己定义了一个类：
uses Windows, Messages, SysUtils, Graphics, Classes,Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type Tform1=class(TForm);
.....
end;
type TBox=class
Myshp:string;
Private
procedure Setcolor(const Value: Tcolor);
...
implementation
procedure TBillBox.Setcolor(const Value: Tcolor);
begin
TShape( FindComponent(myshp)).brush.color:=value;
end;
总提示 undeclared identifier:'Findcomponent'
怎么回事？
uses Windows, Messages, SysUtils, Graphics, Classes,Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type Tform1=class(TForm);
.....
end;
type TBox=class
Myshp:string;
Private
procedure Setcolor(const Value: Tcolor);
...
implementation
procedure TBillBox.Setcolor(const Value: Tcolor);
begin
TShape( FindComponent(myshp)).brush.color:=value;
end;
总提示 undeclared identifier:'Findcomponent'
怎么回事？