首页| JavaScript| HTML/CSS| Matlab| PHP| Python| Java| C/C++/VC++| C#| ASP| 其他|
购买积分 购买会员 激活码充值

您现在的位置是:虫虫源码 > 其他 > Delphi7利用鼠标绘制矩形焦点的源码

Delphi7利用鼠标绘制矩形焦点的源码

  • 资源大小:159.52 kB
  • 上传时间:2021-06-30
  • 下载次数:0次
  • 浏览次数:1次
  • 资源积分:1积分
  • 标      签: Delphi源码

资 源 简 介

本源代码主要演示Delphi7利用鼠标绘制矩形焦点,画出虚线框矩形,按住鼠标左键抖动矩形区域,即可显示虚线矩形框,可应用于需要拖动选择对象时作为选区使用,在Delphi中,这个功能使用Canvas实现:   procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,    Y: Integer);   begin    if IsDraw then    begin    if Count >1 then    DrawFocusRect(Canvas.Handle,FocuRect);    FocuRect.Right := X;    FocuRect.Bottom := Y;    DrawFocusRect(Canvas.Handle,FocuRect);    Inc(Count);    IsEndDraw := True;    end;   end;

文 件 列 表

srcfans.com
鼠标绘制矩形焦点
Project1.dof
鼠标绘制矩形焦点
鼠标绘制矩形焦点
Project1.cfg
srcfans.com

相 关 资 源

您 可 能 感 兴 趣 的

同 类 别 推 荐

VIP VIP
0.264097s