DELPHI第四天,求助大佬,画图工具的问题

Delphi萌新 2023-01-11 20:41:44

我想做一个工具,可以在屏幕上自由的画线条的,当我点击按钮之后,鼠标经过的位置就会有线条出现

目前做法如下
New Form

VAR
DC:HDC;   //gdi句柄
zuobiao:Tpoint; //坐标变量
huatu:boolean=false //画图变量判断
app:Tcanvas; //画布变量

窗体TForm1.FormCreate事件触发

dc=getdc(0) //获取屏幕句柄
app:=canvas.Create; //创建一个Canvas对象
app.Handle:=DC; //将屏幕和画布关联
Getcursorpos(Zuobiao); //获取当前屏幕坐标位置

鼠标OnMouseDown事件触发

 app.MoveTo(zuobiao.X,zuobiao.Y);//画布的坐标移动到我屏幕坐标位置
 if button =mbleft then begin    //判断按键左右
     app.Pen.Color:=clred;    //画笔颜色设置为红色
     app.Pen.Width:=3;        //画笔宽度为3
     huatu:=true;             //画图变量为真
 end
 else
    begin
  huatu:=false;              //画图变量为假
    end;
end;

OnMouseMove事件触发

  if huatu then begin
   app.lineto(zuobiao.x,zuobiao.y);  //将我鼠标经过的画出线条
end;

但是现在问题是,打开Form就报错,另外就是不在屏幕上画线
已经折腾了五个小时了,请大佬帮帮忙,小弟在线等答案!
不知道问题出在哪里了!!!

...全文
136 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
tanqth 2023-01-13
  • 打赏
  • 举报
回复

打开Form报什么错呢?
其实,通常就是取到鼠标经过的点,然后就画就可以的。

  • 打赏
  • 举报
回复

窗体设置为全屏、无边框,AlphaBlend设置为true,AlphaBlendValue设置为一个比较小的值,比如16,然后在鼠标事件中画就可以了。
你的做法是不行的,虽然直接绘制到桌面是可以的,但是交互操作则不行,因为你获得不到桌面窗口的键盘、鼠标消息(hook是可以的,但是比较繁琐,没有必要)。

CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-Java 发布问题, 以便更快地解决您的疑问
tanqth 2023-01-13
  • 举报
回复
@CSDN-Ada助手 这是来捣乱的?
Delphi XE2 正式版的破解程序,有效哦。 Delphi XE2 官方完整 delphicbuilder_xe2_win_dl.iso下载地址: http://altd.embarcadero.com/download/radstudio/xe2/delphicbuilder_xe2_win_dl.iso 文件大小: 2.33G MD5: de8b9f897e2ad678643b64898470b707 Delphi Prism XE2 - ISO 1.28G http://altd.embarcadero.com/download/prism/xe2/prism_xe2_win.iso RadPHP XE2 - ISO 343M http://altd.embarcadero.com/download/radphp/xe2/radphp_xe2_win.iso 建议大家用迅雷下载 ************************************** 英巴卡迪诺发布新版RAD Studio XE2开发工具套件 日前,英巴卡迪诺宣布发布新版RAD Studio XE2软件开发工具套件,新版包含了10多年来最深入全面的特性升级。RAD Studio XE2中包含了新版本的Delphi、C++Builder、Prism和RadPHP。主要特性包括完整的Delphi 64位Windows支持,通过全新的FireMonkey富商业应用平台支持Mac OSX和iOS,以及通过RadPHP XE2支持安卓web和移动应用开发。 对Delphi XE2和C++Builder XE2来说,一个极其重要的新特性就是FireMonkey,业界第一款用于创建商业软件的原生的能全面利用到CPU和GPU计算能力的富应用平台。使用 FireMonkey,Delphi和C++Builder开发人员能开发出视觉绚丽的高清和3D应用程序,并与后台的企业级数据库如Oracle、微软 SQL Server、IBM DB2、Sybase和其他数据库互联互通。FireMonkey应用以原生方式运行在Windows PC和Mac上,可以完全利用到现代GPU的处理能力,以不可置信的细节处理能力和优异的性能表现展现数据和用户界面。FireMonkey还可以使 Delphi XE2用户为移动(iOS)设备创建原生的高清和3D应用程序。 Delphi和C++Builder为应用开发提供原生开发方式,而RadPHP XE2则支持web开发和移动设备应用的开发。使用RadPHP XE2,开发人员可以轻松为移动智能电话和平板电脑创建支持触碰和UI优化的web应用。开发人员可以部署他们的移动Web应用为原生移动应用到苹果公司的iOS应用商店和安卓的应用市场。在他们的移动Web应用中,可以直接访问移动设备的硬件,如相机、GPS和重力感应器。 其他新增特性包括: Delphi XE2 和C++Builder XE2 Delphi XE2包括完整的Windows 64位对FireMonkey、编译器、调试器、RTL 和VCL的支持; dbExpress具有新的对InterBase XE, FireBird 2.5, SQL Anywhere 12 和ODBC的连接能力; 新的DataSnap移动连接器,带有原生的平台组件和示例以创建从移动客户端到Delphi DataSnap服务器的连接,支持安卓(Java), iOS (Objective C), 黑莓(Java) 和Windows Phone 7 (C#); 新增和更新的扩展工具,包括FastReport,用于快速设计和生成报表;Documentation Insight,用于Delphi的源代码文档工具; TeeChart、IBX、InstallAware、IP*Works、Aqtime、FinalBuilder、IntraWeb和Indy 的64位版本。 TeeChart、Indy和FinalBuilder还支持Mac平台; C++Builder XE2中还包含了新的代码审计和QA度量工具; LiveBindings使用户能连接任意类型的信息到任意的FireMonkey用户界面和图形对象上。用户可以绑定实时数据到标准的用户界面控件、高清或3D图形元素上,以创建可视化任意类型数据的崭新方式; RadPHP: 集成式为移动优化的Web开发; 部署应用到Web, iOS, 或安卓; 扩展的Zend框架组件集; Embarcadero Prism: 来自RemObjects的全新的.NET Oxygene编译器; 匿名接口实现; FastReport.net

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧