登录
首页 » Delphi源码 » 取消窗体标题栏的关闭按钮-Delphi代码

取消窗体标题栏的关闭按钮-Delphi代码

于 2022-07-04 发布 文件大小:5.49 kB
0 104
下载积分: 2 下载次数: 1

代码说明:

Delphi 取消窗体标题栏的关闭按钮,也就是单击窗口右上角的关闭按钮,窗体并不会关闭,让关闭按钮失去了作用,用户可通过单击窗口中的自定义按钮来关闭窗口,这样就相当于取消了窗体标题栏中的关闭按钮。

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

发表评论


0 个回复

  • delphi 获取网页
    delphi 获取网页源码
    2023-01-22 10:05:04下载
    积分:1
  • Delphi 摄像头监控云台镜头控制系统
    Delphi 云台镜头控制系统,用于摄像头监控系统中的云台控制程序,早几年写的,可能现在适用的硬件已经过时了,不过对于编写开发Delphi程序来说,源代码部分还是很有参考价值的。   本套云台控制系统运行的最终界面效果如示例图所示,界面友好,功能实用。   通过这套云台控制程序,你可控制摄像头光圈大孝焦距改变、转动摄像头、打开射灯等功能。
    2023-07-22 04:15:04下载
    积分:1
  • Delphi 设定Windows屏幕分辨率的方法和示例代
    Delphi 设定Windows屏幕分辨率的方法和示例代码:   function TForm1.DynamicResolution(X, Y: word): BOOL;   var    lpDevMode: TDeviceMode;   begin    Result := EnumDisplaySettings(nil, 0, lpDevMode);    if Result then    begin    lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;    lpDevMode.dmPelsWidth := X;    lpDevMode.dmPelsHeight := Y;    Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;    end
    2023-04-22 01:05:03下载
    积分:1
  • Delphi户籍管理系统,Access数据库版
    Delphi户籍管理系统,Access数据库版,界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为:222222 。   在数据库编程方面,本系统更注重录入及查询,采用多重SQL语句查询,并结合查询可生成报表。
    2022-04-18 17:44:59下载
    积分:1
  • Delphi 文件拖放获取路径实例
    Delphi 文件拖放获取路径实例,用文件拖放的方式打开文件,本实例中虽然没有打开文件,但是获取到了文件路径,因此你就可以依此功能扩展成打开文件的功能。   实现方法使用了shellAPI,将Form1注册为文件拖放接收控件,说请请下载该源码。
    2022-09-12 19:45:03下载
    积分:1
  • Delphi7 获取文件的修改时间
    Delphi7 获取文件的修改时间,这是一个文件操作实例源代码,获取到文件被修改的时间,代码简单,适合Delphi新手学习参考。
    2022-03-25 03:51:22下载
    积分:1
  • 窗口中的弹出式右键菜单-delphi
    窗口中的弹出式右键菜单-delphi PopupMenu源码,   procedure TForm1.Button1Click(Sender: TObject);   var    Poin:TPoint;   begin    Poin := Point(Button1.Left,Button1.Top+Button1.Height);    Poin := ClientToScreen(Poin);    PopupMenu1.Popup(Poin.X,Poin.Y);   end;
    2022-07-24 15:12:59下载
    积分:1
  • Delphi 实现图像热点功能
    Delphi 实现图像热点功能,实现一张图片上不同形状区域的热点,定义椭圆形、四边形、三角形的区域变量的热点,相关代码如下:   var    thepoint:array [1..8] of tpoint;//存储多边形顶点坐标    count:integer;    pointnum:array [1..2] of integer;   begin   //四边形顶点坐标,首末点封闭    thepoint[1]:=point(135,99);    thepoint[2]:=point(105,183);    thepoint[3]:=point(129,201);    thepoint[4]:=point(188,92);    thepoint[5]:=point(135,99);    count:=5;//四边形顶点数目,首末点为一点    fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域    elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域    //第一个三角形顶点坐标    thepoint[1]:=point(118,67);    thepoint[2]:=point(32,28);    thepoint[3]:=point(17,90);    thepoint[4]:=point(118,67);    //第二个三角形顶点坐标    thepoint[5]:=point(155,44);    thepoint[6]:=point(202,91);    thepoint[7]:=point(277,44);    thepoint[8]:=point(155,44);    pointnum[1]:=4;//第一个三角形顶点数目    pointnum[2]:=4;//第二个三角形顶点数目    count:=2;//三角形数目   //生成由两个三角形构成的三角形区域   tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING);   end;
    2022-01-26 08:02:50下载
    积分:1
  • 一个相当不错的Delphi TreeView树控菜单
    一个Delphi编写的相当不错的TreeView树控菜单,类似于Windows资源管理器中的树状菜单。   ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口   Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表   HasExpanded: Boolean; // 节点是否展开   通过这个树形菜单制作实例,你可以学习到几个对项目标识符进行操作的函数,同时还有将二进制表示的项目标识符列表转换成有可识的项目名,获得每个文件夹在系统中的图标,获得系统的图标列表,生成文件夹管理树等。
    2022-02-01 01:44:12下载
    积分:1
  • Delphi 演示0~N位数的任意组合
    Delphi 数列的排列组合一例,演示0~N位数的任意组合,组合的数字在0~5之间,需要输入1~6整数,排列结果会显示在文本框组件中。要点代码如下:   ssList := TStringList.Create;   try    if (nBase < 1) then    begin    end    else    begin    if (sList.Count = 0) then    begin    for nIdx := 0 to num-1 do    ssList.Add(a[nIdx]);    end    else    begin    for nIdx := 0 to num-1 do    for nSidx := 0 to sList.Count-1 do    if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then    ssList.Add(a[nIdx]+sList.Strings[nSidx]);    end;    Combine(nBase-1, ssList);    end;    if ssList.Count > 0 then    begin    sList.Clear;    sList.Text := ssList.Text;sslist.Count    end;   finally    ssList.Free;   end;
    2022-04-29 16:59:03下载
    积分:1
  • 696518资源总数
  • 104441会员总数
  • 19今日下载