不用image.txt

大量Delphi开发资料

procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap:TBitMap;
begin
  BitMap:=TBitMap.Create;
  BitMap.LoadFromFile('E:\BMP&ICO\自制\Flash.bmp');
  Form1.Canvas.StretchDraw(rect(10,10,410,260),BitMap);
  BitMap.Free;
end;