初学Dephi，一个小问题

Question

procedure TfrmM.mmiBitmapPattern1Click(Sender: TObject);
var
  FBitMap:Tbitmap;
begin
  ClearCanvas;
  //Load abitmap from the disk
  Fbitmap.LoadFromFile('16.bmp'); //这句话抱错  frmm.Canvas.Brush.Bitmap:=FBitmap;
    Try
      frmm.Canvas.Rectangle(0,0,clientwidth,clientheight);
    finally
      frmm.Canvas.Brush.Bitmap:=nil;
end;Fbitmap.LoadfromFile方法报错,谢谢帮助。

Answer 1

Fbitmap.LoadFromFile('16.bmp')
需要相对地址或者绝对地址
Fbitmap.LoadFromFile('D:\16.bmp')
Fbitmap.LoadFromFile('.\16.bmp')

Answer 2

Fbitmap.LoadFromFile('16.bmp'); 16.bmp是放在与EXE同一个目录吗?最好用C:\16.BMP这样绝对路径访问文件.

Answer 3

procedure TfrmM.mmiBitmapPattern1Click(Sender: TObject);
var
  FBitMap:Tbitmap;
begin
  ClearCanvas;
  //Load abitmap from the disk
  FBitmap:=TBItMap.Create;
  try
    Fbitmap.LoadFromFile('16.bmp'); 
    frmm.Canvas.Brush.Bitmap:=FBitmap;
      Try
        frmm.Canvas.Rectangle(0,0,clientwidth,clientheight);
      finally
        frmm.Canvas.Brush.Bitmap:=nil;
  finally
    FBitMap.Free;
  end;
end;

Answer 4

老大,你没有创建TBITMAP对象呢!!!!!

Answer 5

:)通过了，谢谢大家了，哎，对Dephi太不熟悉了。