不用image.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 9 行

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;