unit SamMapUnit;    interface    Uses
    classes, Windows, extctrls, controls, SysUtils;
type
    TLayerList = record
       Name  : String;
       Image : TImage;
    end;
type
    TMap = Class (TControl)
Private
       gLeft,gTop,gRight,gBottom:integer;
       gcoordinates : TRect;
       gLayerCount,gLayerIndex : Integer;
       gLayerList : Array of TLayerList;
Public
      constructor Create(AOwner:TComponent);override;
      destructor Destroy; override;
      Procedure Delete();
      Function AddLayer():Integer;
      Function InsertLayer(Index:integer):Integer;
      Function Getlayername(index:integer):string;
      Function Setlayername(index:integer;name:string):integer;
      property Layername[Index:integer]:string read getlayername;
Published
      property Counts : Integer read gLayerCount;
end;    var
   Map : TMap;    implementation    Constructor TMap.Create(AOwner:TComponent);
begin
     inherited Create(AOwner);         gLayerCount := 0;
end;
Destructor TMap.Destroy;
var
   i : integer;
begin
     for i := 0 to gLayerCount - 1 do gLayerList[i].Image.Free;
     inherited Destroy;
end;
Function TMap.AddLayer():Integer;
begin
     Inc(gLayerCount);
     SetLength(gLayerList,gLayerCount);
     gLayerIndex := gLayerCount-1;
     with gLayerList[gLayerIndex] do
     begin
          Image := TImage.Create(TComponent(Map));
          Name  := 'Layer' intToStr(gLayerIndex);
     end;
     Result := gLayerIndex;
end;
Procedure TMap.Delete();
begin
     gLayerList[gLayerCount-1].Image.Free;
     Dec(gLayerCount);
     SetLength(gLayerList,gLayerCount);
end;
Function TMap.InsertLayer(Index:integer):Integer;
begin
end;    Function TMap.Getlayername(index:integer):string;
begin
     if index = -1 then result := null;
     if index >= gLayerCount then result := null;
     result := gLayerList[index].Name;
end;    Function TMap.Setlayername(index:integer;name:string):integer;
begin
     result := -1;
     if index = -1 then exit;
     if index >= gLayerCount then exit;
     gLayerList[index].Name := name;
     result := 1;
end;    end.

這是我想的一段code 我想做一個VCL是 一個canvans 的介面 , 裡面有layer 的概念 所以我就想出一個 array of Timage 除了最底層的layer , 其他都會有透明的特性 問題一是 這個VCL 將會daynamic create 他的parent 可以是panel 可以是form 我要怎樣在create() 裡面知道 parent 是誰, 跟parent 的size ? 我現在是TControl class, 其實我想很久都不確定承繼那一個class 請問有好的建意嗎? 那個 size 主要是要給create TImage 的時候用的, 因為我在其他地方用的時候發現, 如果create TImage 的時候的size 會影響到 canvas 的大小 , 比如說當我 create 的時候是 100x100 然後用brush 塗白 , 然後再resize => 200x200 , 白色的部分只有 100x100, 所以好像要在create 的時候設定最大值, 不知道我有沒有看錯這個 另外我用這個VCL , create 之後再 destory , 發現變數都沒有 = nil 是不是我的destory 寫漏了東西? 還是一定要free 之後再把變數 = nil 呢? 可能不是最好的方法 !!! 我也是初學者 ！！！ 不要怪我呀．． 我最喜歡吃零食啦^.^

I think you should override TControl.SetParent method. To resize TImage, use TImage.Picture.Bitmap. Your destroy destructor looked fine, perhaps you could SetLength(gLayerList,0) in the end... Free won't set the object pointer to nil, it is normal.    http://pywong.hk.st