Delphi Canvas.LineTo 画线

本文整理自网络，侵删。

 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  { First call FillRect to paint the surface of the form.
    This removes any previously drawn lines (and anything else). }
  Canvas.FillRect(ClientRect);
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(X, Y);
end;
 

相关阅读 >>

Delphi 18位身份证号码的校验

Delphi win32，win64用于单/多线程计数素数的整数性能比较

Delphi tstreamwriter快速写入文件

Delphi 更改消息对话框中的按钮标题

Delphi建立文件的快捷方式

Delphi压缩图片代码

Delphi异常处理的基本原则和方法

Delphi winapi: isiconic、iszoomed - 分别判断窗口是否已最小化、最大化

Delphi文本文件的写操作

Delphi twebbrowser流程讲解及如何判断下载网页成功

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

转载请注明出处：木庄网络博客 » Delphi Canvas.LineTo 画线