频道分类

Delphi 在电脑屏幕上显示图片

作者:admin 来源: 日期:2020/11/15 9:57:53 人气: 标签:

 
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;


上一篇:Delphi XE 制作的萤光时钟,可改作屏保下一篇:没有资料