关于一个集成自TGraphicControl控件为什么放在窗体上没有反应.好像是因为我的paint没有事，大家帮我看看！

Question

//Must set its parent propertyconstructor TTitle.Create(AOwner: Tcomponent);
begin
  inherited Create(Aowner);
  Self.Parent := TWinControl(AOwner);  
  Align:=alTop;
  Height:=30;
end;

Answer 1

ControlStyle := ControlStyle + [csReplicatable];写在CREATE里怎么样？

Answer 2

楼上的
  inherited Create(Aowner);
  ControlStyle := ControlStyle + [csReplicatable];
  Align:=alTop;
  Height:=30;
这样也不行，没有反映

Answer 3

//TTitle.Paint修改成
procedure TTitle.Paint;
var
  ARect: TRect;
begin
  ARect := Rect(0, 0, Width, Height);
  Canvas.Brush.Style := bsSolid;
  Canvas.Brush.Color:= clRed;
  Canvas.FillRect(ARect);
end;

Answer 4

constructor TTitle.Create(AOwner: Tcomponent);
begin
  inherited Create(Aowner);
  Self.Parent := TWinControl(AOwner);  
  Align:=alTop;
  Height:=30;
end;这样也不行

Answer 5

//没有反映吧！
procedure TForm1.Button1Click(Sender: TObject);
var Arect:Trect;
begin
  ARect:=Rect(left,width,top,height);
//Rect(Left, Top, Right, Button)
//  ARect := Rect(0, 0, Width, Height); //有反映了吧
  canvas.brush.Style:=bsSolid;
  canvas.brush.Color:=clred;
  canvas.FillRect(ARect);
end;

Answer 6

如zswang(伴水)(* pascal→c *),ARect应为相对TTitle之ClientRectprocedure TTitle.Paint;
var Arect:Trect;
begin
  inherited;
  ARect:=ClientRect;
  Canvas.Brush.Style:=bsSolid;
  Canvas.Brush.Color:=clred;
  Canvas.FillRect(ARect);  Canvas.MoveTo(Left,Top);
  Canvas.LineTo(Width,Height);
end;