Delphi 在电脑屏幕上显示图片


本文整理自网络,侵删。

 
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 获取动态创建的image与scrollbox的相对位置

Delphi android 程序名称在哪里设置?

Delphi 最简单的判断数字函数

Delphi access中只取时间的日期部分的函数

Delphi getcomputername() getusername() 获取本机当前用户名

Delphi spcomm串口控件的例程

Delphi 跳出for循环

Delphi自动以管理员身份在vista 和 windows7 下运行程序

Delphi 文件占坑法过360查杀

Delphi xe android/ios 手势介绍

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...