控件编写疑惑(重伤，需急救)

Question

小弟在写一控件时遇到问题，请各位老大们指点指点.
多谢，先！private
　  FBMP: TBitmap；
    FDone: Boolean;
...
    function  GetImg: TBitmap;
    procedure SetImg(Value: TBitmap);
    procedure SetDone(Value: Boolean);
...
published
    property BMP: TBitmap read GetImg write SetImg
    property Done: Boolean read FDone write SetDone;
...
procedure XXX.SetDone(Value: Boolean);
begin
    FDone := Value;
    if FDone then
    begin
      if not BMP.Empty then
        {to do something}
      else
        {to do something}
    end else begin
      {to do something}
    end;
end;function XXX.GetImg: TBitmap;
begin
    Result := FBMP;
end;procedure XXX.SetImg(Value: TBitmap);
begin
    FBMP.Assign(Value);
end;
...我在Object Inspector中将上述两个属性值都加载／设定
BMP   (TBitmap)
Done  True在控件的设计期所表现均是正确的，
但在运行的时候，if not BMP.Empty then　表达示却为False.
致使运行时，控件表现不正确.急.再次拜谢

Answer 1

GetImg的过程觉得多余了，如果你只是直接取FBMP的值的话。TBitmap的实例刚被创建，没有加载图像时，Empty属性就是True，前面再加了一个not，当然返回False了。

Answer 2

看看你的CREATE是怎么写的才晓得。

Answer 3

在Create中
　FBMP := TBitmap.Create;
  FDone := False;它们的值都是在设计期重新确定的.