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 getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi加载驱动的代码演示

Delphi 命令行 打开读写txt文件

Delphi用ado操作数据库完整示例

Delphi 判断字符串是否包含数字

Delphi xe 减少程序体积！

floattostr 将“浮点型”转换成“字符型”

Delphi webbrowser的关于流载入流保存和流生成

Delphi 如何编写需要启动参数的Delphi程序

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

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