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

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

于 2023-02-14 发布 文件大小:159.52 kB
0 258
下载积分: 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 让组件拖动窗体 按钮拖动窗口移动,如图所示的窗口中,用户只需按住按钮,即可将整个窗口在屏幕上随意拖动,实现了如何用组件来移动窗体的功能。下面是相关代码:   procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;    Shift: TShiftState; X, Y: Integer);   begin    if Button=MBLeft then    begin    releasecapture;    PerForm(WM_SYSCOMMAND,$F012,0);    end;   end;
    2023-03-07 20:25:03下载
    积分:1
  • Delphi+Interbase-Code-汽配进销存-全-使用手册-钻石精品
    (R)-Delphi+Interbase-Code-龙邦汽配进销存源码-源代码全-使用手册-钻石精品
    2022-03-16 11:47:13下载
    积分:1
  • Delphi POP3接收邮件-Email客户端例子
    Delphi POP3接收邮件-Email源码实例,像是一个邮件客户端那样,设定好邮件服务器相关参数后,可连接到邮件服务器,接收邮件,本例子仅包括邮件接收功能,不能发送邮件哦。使用本程序需要设置的参数:邮件服务器POP3、端口、邮件帐户、密码,连接成功后,邮件列表会显示在“邮件”一栏中,单击任意一个邮件,详细信息会显示在“内容”栏中。
    2022-12-15 05:00:03下载
    积分:1
  • Delphi获取和设置汉字输入法
    Delphi 获取系统中已安装的中文输入法,判断是否在中文状态,若是则关闭它,切换半角和全角模式,切换中文标点模式和英文标点模式,并对输入法做相关设置。以下是相关代码:   procedure TForm1.closecid;   var    mycid:hkl;   begin    mycid:=GetKeyBoardLayOut(0);    if ImmIsIME(mycid) then    //判断是否在中文状态,若是则关闭它    immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);   end;   procedure TForm1.FormShow(Sender: TObject);   var    j:integer;   begin    for j:=0 to screen.imes.count-1 do    begin    //获取系统中已安装的中文输入法    ComBoBox1.Items.Add(screen.Imes.strings[j]);    end;   end;
    2022-10-19 03:05:03下载
    积分:1
  • Delphi 记录文件的读写
    Delphi 记录文件的读写,这个程序非数据库程序,实际上也不是文件读写程序,只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据,确定后,会将数据添加到主窗口的StringGrid中,然后通过修改命令,从StringGrid中再读取出数据,进行修改保存,演示了文件内容的读取和写入的操作过程 。
    2022-02-12 09:49:41下载
    积分:1
  • Delphi 判断字符串是否为日期或时间
    Delphi 判断字符串是否为日期或时间,检查用户输入的时间格式是否正确,判断用户输入的是否是时间字符串,这个虽然麻烦些,不过这个例子将问题简单化,有兴趣的参考源码。
    2022-08-24 16:56:14下载
    积分:1
  • Delphi 将TDBGrid导入到Excel表中附数据库
    Delphi7.0将TDBGrid导入到Excel表中,测试程序先连接好SQLSERVER数据库,并将数据读取到TDBGrid中,然后再将数据从TDBGrid导入到Excel表中,为了测试方便,SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义,完整源码请下载:   //将TDBGrid表中的标题插入到Excel表中的首行   for I:=0 to DbName.Columns.Count-1 do   begin    if DbName.Columns[i].Visible=False then    Continue;    Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption;    Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体   end;   Inc(j); //Excel表中的下一行   First; //将指针返回到TDBGrid表中数据的首行   while not Eof do   begin    for i:=0 to DbName.Columns.Count-1 do    begin    if DbName.Columns[i].Visible=False then    Continue;    //将指定行中每列的数据,添加到Excel表中    Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring);    end;    Inc(j); //Excel表中的下一行    Next; //TDBGrid表中的下一条记录   end;
    2022-06-29 23:05:07下载
    积分:1
  • Delphi 应用程序背景与桌面融合在一起
    Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;
    2022-02-02 23:31:59下载
    积分:1
  • Delphi Shadow窗口阴影立体效果
    Delphi 制作立体窗口阴影效果,这个阴影看上去很明显,不过不是线性的,线性的实现起来要比这种阴影复杂一些。   ShadowWidth:integer; //用于确定阴影的宽度或高度   RightShadow:TForm; //主窗口的右边产生一个阴影窗口   BottomShadow:TForm; //主窗口的下部产生一个阴影窗口   procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;
    2022-05-14 21:59:11下载
    积分:1
  • 演示Delphi 如何放大和缩小图像【图片】
    源码演示Delphi 如何放大和缩小图像【图片】,我们这个例子可以学习了解如何使用Delphi编程代码,放大或缩小一张图片,这里把放大和缩小图片的基数写在按钮事件中,用户每次单击按钮,就会按照一定的缩放倍数放大或缩小图像,本示例测试图片已写入程序中,编译运行后操作并演示效果,对图像的缩放部分,重点参考以下代码:   图片缩小操作:   procedure TForm1.BitBtn1Click(Sender: TObject);   begin    if image1.Height>50 then    begin    image1.Height:=image1.Height-10;    image1.Width:=image1.Width-13;    end;   end;   图片放大操作:   procedure TForm1.BitBtn2Click(Sender: TObject);   begin    if image1.Height
    2023-04-18 03:35:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载