登录
首页 » Delphi源码 » Delphi7利用鼠标绘制矩形焦点的源码

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

于 2023-02-14 发布 文件大小:159.52 kB
0 248
下载积分: 2 下载次数: 1

代码说明:

本源代码主要演示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;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 改变当前鼠标样式
    Delphi 改变当前鼠标样式,这个样式比较个性了,把箭头状的鼠标指针替换成了一幅图像,还有动画效果。具体实现,请下载本源码一看究竟。本程序具备的功能是可以选择的,用户可选择改变鼠标的形状是否是当前窗口或系统,选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。
    2023-07-31 03:10:03下载
    积分:1
  • delphi 获取网页
    delphi 获取网页源码
    2023-01-22 10:05:04下载
    积分:1
  • Windows 剪贴板高级编程-Delphi实例
    Windows 剪贴板高级编程-Delphi源码实例,其实也不是什么高级编程,挺基础的剪贴板应用。学习如何在Delphi环境下读取Windows剪贴板的内容。在编写一些系统辅助类的软件中,可使用到这些小技巧。以下代码:将剪贴板内容读取出来,在代码的执行放入一个按钮事件中:   procedure TForm1.Button2Click(Sender: TObject);   var    DataRec: TDataRecord;    Data: THandle;    PData: Pointer;   begin    Data := Clipboard.GetAsHandle(CF_CUSTOMFORMAT);    if Data = 0 then Exit;    PData := GlobalLock(Data);    Move(PData^, DataRec, GlobalSize(Data));    GlobalUnlock(Data);    with DataRec do    ShowMessage(Name + #13#10 + Sex + #13#10 + Hobby);   end;
    2022-04-22 08:40:48下载
    积分:1
  • Delphi 得到 Windows当前时间的例子
    Delphi 获取并显示当前Windows时间的例子,这个例子比较简单了,程序就完成一项功能,打开窗口后,点击按钮,即可获取当前的系统时间,并显示在窗体上,如效果图所示。
    2022-06-29 06:02:41下载
    积分:1
  • Delphi实现简单TCP服务器范例
    “欢迎连接到简单TCP服务器”,这是本代码编译成功,运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器,客户端代码同样完整,指定主机IP、端口后,就可连接该服务器,客户端和服务端代码都要编译才能运行,先运行服务端并设置好,再启动客户端,然后进行消息发送和接收。
    2022-01-26 07:51:08下载
    积分:1
  • Delphi 创建Excel表格文件
    Delphi 读取SQLSERVER数据库内容,并创建Excel表格文件,将内容导出到excel文件中,核心同样是基于createoleobject对象的excel.application方法实现,创建EXECEL对象 ,添加comobj单元,用循环加入记录,将数据表导入到Excel表中,正式开始EXECEL输出。
    2022-02-15 04:17:26下载
    积分:1
  • Delphi 文件目录操作
    一个基础的Delphi 文件目录操作示例,这里是拷贝指定的文件夹目录,一是了解复制文件的原理,二是熟悉Delphi中的目录操作技巧。
    2022-03-15 15:35:17下载
    积分:1
  • Delphi 格式化DataGrid表格中的数据
    Delphi 格式化DataGrid表格中的数据,DataGrid网格列表在各种编程的数据库显示方面都使用广泛,因此对于Delphi的数据库编程,DataGrid的使用技巧是一定要撑握的,本源码所要演示的就是一个使用DataGrid的简单例子,将DataGrid表格中的数据格式式成你想要的格式,测试前请确保Delphi与数据库正常连接且有数据。
    2022-01-25 15:23:01下载
    积分:1
  • Delphi在TListView中显示数据库
    Delphi在TListView中显示数据库,ListView控件的简单用法,在日常的编程开发中,这个比较常用 。   self.ListView1.ViewStyle:=vsReport;   for i:=0 to Query1.FieldCount-1 do   begin    TempColumn:=self.ListView1.Columns.Add;    TempColumn.Caption:=Query1.Fields[i].FieldName;   end;   Query1.First;   while not Query1.Eof do   begin    TempItem:=self.ListView1.Items.Add;    TempItem.Caption:=Query1.Fields[0].AsString;    for i:=1 to Query1.FieldCount-1 do    begin    TempItem.SubItems.Add(Query1.Fields[i].AsString);    end;    Query1.Next;   end;
    2023-06-25 00:05:04下载
    积分:1
  • Delphi 图片颜色逐渐加深功能的实现
    Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;
    2022-03-23 16:34:19下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载