登录
首页 » Delphi源码 » Delphi 如何定义自已的鼠标单击事件

Delphi 如何定义自已的鼠标单击事件

于 2022-05-13 发布 文件大小:5.73 kB
0 288
下载积分: 2 下载次数: 1

代码说明:

Delphi 如何定义自已的鼠标单击事件,本程序定义了监测鼠标中轮的事件,当用户按下鼠标中轮时,将监测到运作类型,并弹出窗口返回结果。

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

发表评论

0 个回复

  • Delphi 静音 左右声道音量控制
    Delphi控制系统静音,两个声道均不发出声音,同时若在非静态状态下,可控制左、右声道的音量大小,在代码中@表示指向变量v的指针(32位),调用此函数的用意就是得到右声道的值,在调节左声道的时候,不改变右声道}数字前面加$表示是十六进制数字,(t shl 8)表示t左移8位,部分参数设置代码如下:   procedure TForm1.FormCreate(Sender: TObject);   var    v:longint;   begin    waveoutgetvolume(0,@v);//得到现在音量,@v表示指向变量v的指针(32位)    trackbar1.Position:=hi(v);//设置左滑块的正确位置    trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置   end;
    2022-06-02 00:55:40下载
    积分: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 多帧动画播放,Delphi将多幅连续的BMP图像显示在一起,形成了动画的效果,类似于GIF的类型动画。每一张图片都是一帧,将帧快速的连起来,就形成了动画效果。
    2023-07-24 05:15:03下载
    积分:1
  • Delphi 【Frame3D】函数的应用实例-三维框
    Delphi 函数【Frame3D】的应用,该函数用于在画布上绘制一个3维框图:   implementation   {$R *.dfm}   procedure TFrmFrame3D.FormCreate(Sender: TObject);   begin    Bc:=Rect(80,50,100,200);   end;   procedure TFrmFrame3D.FormPaint(Sender: TObject);   begin    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;   procedure TFrmFrame3D.Button1Click(Sender: TObject);   begin    Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;
    2022-06-16 08:51:26下载
    积分:1
  • Delphi 用获取路径的方法得到圆形窗体
    Delphi 用获取路径的方法得到圆形窗体,制作实现一个非矩形窗口,可以说是一个不规则窗口了,圆形的窗口,标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体,然后设置窗口为透明模式,部分代码如下:   dc:=self.Canvas.Handle;   BeginPath(dc);   //根据路径创建不规则窗体   SetBkMode(dc,TRANSPARENT);   //设置为透明模式    Ellipse(dc,20,20,220,220);   EndPath(dc);   region:=PathToRegion(dc);   SetWindowRgn(self.Handle,region,TRUE);   end;
    2022-05-16 23:17:16下载
    积分:1
  • delphi 获取网页
    delphi 获取网页源码
    2023-01-22 10:05:04下载
    积分:1
  • Delphi 替换一个键盘按钮
    Delphi 替换一个键盘按钮,将数字1改为a。将键盘所代表的键位重新定义并判断,得到一个不同的键位值。
    2023-01-10 10:50:03下载
    积分:1
  • 取消窗体标题栏的关闭按钮-Delphi代
    Delphi 取消窗体标题栏的关闭按钮,也就是单击窗口右上角的关闭按钮,窗体并不会关闭,让关闭按钮失去了作用,用户可通过单击窗口中的自定义按钮来关闭窗口,这样就相当于取消了窗体标题栏中的关闭按钮。
    2022-07-04 03:53:29下载
    积分:1
  • Delphi添加图层蒙版
    Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);   var    bTrans: Byte;    OldStyle: Integer;   begin    form1.Color := clGradientActiveCaption;    WindowState := wsMaximized;    BorderStyle := bsNone;    FormStyle := fsStayOnTop;    OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);    SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);    bTrans := 128;    SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);   end;
    2022-02-06 10:25:25下载
    积分:1
  • 一个包括了下拉菜单的Delphi窗口设计范例程序
    一个包括了菜单的Delphi窗口设计范例程序,以一个销售管理系统的主窗口界面设计为例,演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素,比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握,在很多的Delphi应用程序中,都会有此需求,欢迎下载源码。
    2022-12-24 17:00:02下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载