在电脑屏幕上显示图片

小叶子 — Sun, 18 Jan 2009 15:27:00 GMT

procedure TForm1.Button1Click(Sender: TObject);
var
aCanvas:TCanvas;
i:Tbitmap;
begin
aCanvas:=TCanvas.Create;
i:=tbitmap.Create;
i.LoadFromFile('c:\1.bmp');
    try
   aCanvas.Handle:=GetDC(0);//把桌面给acanvas
   aCanvas.Draw(480,300,i);

   finally
     aCanvas.Free;
    end;
end;

小叶子 2009-01-18 23:27 发表评论

IT博客-学好delphi-随笔分类-图片 GDI+

在电脑屏幕上显示图片