TBitmap不存在报错的问题

Question

Form OnCreate:var
bmp:TBitmap;
begin
  bmp:=TBitMap.Create;
  bmp.LoadFromResourceName(Instance,'Bmp_abc');
End;程序报错,说'Bmp_abc'不存在
请问LoadFromResourceName有何作用,如何解决上面的问题?
是不是内存的问题?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
 BitMap1 : TBitMap;
begin
  BitMap1 := TBitMap.Create;
  try
    BitMap1.LoadFromResourceName(HInstance,'THEBITMAP');
    Canvas.Draw(12,12,BitMap1);
  finally
    BitMap1.Free;
  end;
end;

Answer 2

var
bmp:TBitmap;
begin
  bmp:=TBitMap.Create;
  TRY
    TRY
      bmp.LoadFromResourceName(Instance,'Bmp_abc');
    EXCEPT
    END;
  FINALLY
    bmp.free;
  END;
你只要建个资源文件，new->bmp修改名称为Bmp_abc并加其加入工程中。
End;