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利用getprocessmemoryinfo获取进程占用内存大小

Delphi 数组与枚举

Delphi实现全局鼠标钩子

Delphi 全局键盘钩子(wh_keyboard)

Delphi fmx listbox长按复制（移动平台）

Delphi 怎样判断spinedit在微调时值是增加还是减少了

Delphi xe 制作的萤光时钟，可改作屏保

Delphi 内进行音量控制及静音

Delphi 加壳exe的方法

Delphi xe8 为image设置渐变效果

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

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