各位大虾进来看看呀!超级问题~

Question

本人从Tshape继承如下:
 type 
   Tline=class(Tshape);
然后在Tline的构造方法里用:
inherited create(AOwner);后画出一个白底方框,现我要画红底方框,我该怎么办

Answer 1

constructor TMMyshape.Create(AOwner: TComponent);
begin
  inherited;
  Brush.Color := clRed;
end;

Answer 2

constructor Tline.Create(AOwner: TComponent);
begin
 inherited;
 brush.Color:=clred;
end;procedure TForm1.Button1Click(Sender: TObject);
var a:Tline;
begin
 a:=Tline.Create(nil);
 a.Parent:=self;
 a.Paint;
end;

Answer 3

TShape不好。。建议从TGraphyControl来的好。