小弟自己設計的Shape,在OnCreate時,設定了基本寬高為65,65

但是不管在設計時期的大小設定如何,在Complier後,寬高均固定變為65,65

請問各位先進,是哪裡出了問題?

以下為Create 時的的程式碼

constructor TPShape.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle [csReplicatable];

Width := 65;
Height := 65;
end;

感謝

老實說這兩行更本沒有必要(Width? := 65; Height := 65;), 因為在 TShape 中已經有指定了, 而你新的元件又再指定一次, so ...
如果硬要留下以上程式, 請
procedure Loaded; override;

procedure TShape .Loaded;
begin
inherited Loaded;
// 指定User設定的大小
end;


===================引 用 文 章===================
小弟自己設計的Shape,在OnCreate時,設定了基本寬高為65,65

但是不管在設計時期的大小設定如何,在Complier後,寬高均固定變為65,65

請問各位先進,是哪裡出了問題?

以下為Create 時的的程式碼

constructor TPShape.Create(AOwner: TComponent);
begin
? inherited Create(AOwner);
? ControlStyle := ControlStyle [csReplicatable];

? Width? := 65;
? Height := 65;
end;

感謝

------
將問題盡快結案也是一種禮貌!