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定位注册表指定键位

Delphi_关于null,nil

Delphi 转数字为大写金额源代码

Delphi循环遍历同类控件或所有控件

Delphi 的内存操作函数(4): 清空与填充内存

Delphi decodedate、decodetime ... decodedatetime ... 分解时间

Delphi 禁止用户关闭操作系统

Delphi 完美获取硬盘id

Delphi动态建立panel无法更改颜色?

Delphi程序在win7 win8 win10下自动请求以管理员身份运行

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

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