登录
首页 » Delphi源码 » Delphi 7.0 改变菜单中的字体样式

Delphi 7.0 改变菜单中的字体样式

于 2022-07-27 发布 文件大小:6.47 kB
0 129
下载积分: 2 下载次数: 1

代码说明:

Delphi 7.0 改变菜单中的字体样式,本程序其实实现了两种功能,1、枚举系统中所有已安装的字体,并加载到Listbox列表中供选择,2,改变字体样式,选中列表中的任意字体样式,单击即可改变菜单中的文字样式,为窗口中其它区域的文字设置字体样式的时候也可参考。   begin    ListBox1.Items:=Screen.Fonts;字体样式    self.MainMenu1.AutoHotkeys:=maManual;    self.MainMenu1.AutoLineReduction:=maManual;    Screen.MenuFont.Size:=12;字号   end;

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

发表评论

0 个回复

  • Delphi 7.0 使用Quotedstr函数返回字符串的引证串
    Delphi 7.0 使用Quotedstr函数返回字符串的引证串,为了演示方便,本程序于SQLSERVER数据库结合,在运行此程序之前,需要附加数据库。具体附加数据库的方法请参见说明书。
    2023-03-07 09:55:03下载
    积分:1
  • EI3.0(DELPHI)
    EI3.0(DELPHI源码),据说挺完整的,可以下载一下试试
    2022-03-30 08:16:31下载
    积分:1
  • Delphi 邮件短信发送自动通知系统
    Delphi 邮件短信自动通知系统,并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能,可添加邮箱帐户自动收集,并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况,部分功能需要依赖于硬件支持。   程序可最小化到windows托盘处显示图标,通过定义好的右键菜单来调出主窗口,虽然是一个发邮件的小程序,但是暗含的Delphi技巧有很多哦,欢迎下载源码研究学习。   1.实现邮件检测功能:   (1)注册账号,注意正确添写POP3服务器,用户名,密码。   2.实现发送短信功能:   (1)在注册账号时要添写正确的手机号码,并选中发送到手机的复选框。   (2)跟据自己购买的GSM模块说明书设置串口参数,一般是“19200,n,8,1”。   (3)添写当地短信中心号码,前面的86可加可不加,如果没有写,系统在按“确定”后会自动加上。   (4)注意:如果短信中含有中文字符,则一定要设成Pdu模式,否则短信可能发送失败。
    2023-07-27 17:40:06下载
    积分:1
  • Delphi户籍管理系统,Access数据库版
    Delphi户籍管理系统,Access数据库版,界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为:222222 。   在数据库编程方面,本系统更注重录入及查询,采用多重SQL语句查询,并结合查询可生成报表。
    2022-04-18 17:44:59下载
    积分:1
  • Delphi 读写物理扇区——实模式
    Delphi 读写物理扇区——实模式, asm //以下汇编代码中,只有第一参数、第二参数、pFunc的值是需要改变的,其余都是固定的写法    pushad    push ebp //#2,保存ebp    sub esp,$2c //#1,预留2c字节的栈空间    push Int13Reg16 //第一参数,如果没有参数,则不用push    //第二参数,如果没有参数,则不用push    mov edx, pFunc //函数地址    mov ebp,esp //    add ebp,$2c //ebp校正,是作者分析QT_Thunk时发现的    call QT_Thunk    add esp,$2c //#1,释放上面预留的2c字节的栈空间    pop ebp //#2,恢复ebp    mov byte ptr @result,al    popad    end;
    2022-01-24 18:37:58下载
    积分:1
  • 一个包括了下拉菜单的Delphi窗口设计范例程序
    一个包括了菜单的Delphi窗口设计范例程序,以一个销售管理系统的主窗口界面设计为例,演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素,比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握,在很多的Delphi应用程序中,都会有此需求,欢迎下载源码。
    2022-12-24 17:00:02下载
    积分:1
  • 获取windows System目录路径-Delphi示例
    Delphi获取windows System目录路径,这个比较简单,觉得没啥用,只是可以练习一下GetSystemDirectory函数如何使用,下面分享出核心的代码,完整代码需要您下载哦:   begin    GetMem(SysDir,255);    GetSystemDirectory(SysDir,255);    Edit1.Text := SysDir;   end;
    2022-03-18 16:21:27下载
    积分:1
  • Delphi 获取磁盘序号
    Delphi 获取磁盘序号,获取序号非磁盘编号,也不是序列号。运行后的效果如图所示,应该是所选择的磁盘在我的电脑中的排列序号。   操作时,只需选择对应的盘符,然后单击按钮即可,请参见测试截图所示。
    2022-07-24 20:22:04下载
    积分:1
  • Delphi 模拟Windows “显示桌面”功能
    Delphi 模拟Windows “显示桌面”功能,对于功能就不再详述了,单击后,会看到Windows桌面,具体的实现方法也挺简单的,下面几行代码就搞定了:   if IsWindowVisible(h) then    PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);   h := GetNextWindow(h, GW_HWNDNEXT);   完整的可编译源码请你下载源码包吧。
    2023-06-01 06:10:03下载
    积分:1
  • Delphi POP3接收邮件-Email客户端例子
    Delphi POP3接收邮件-Email源码实例,像是一个邮件客户端那样,设定好邮件服务器相关参数后,可连接到邮件服务器,接收邮件,本例子仅包括邮件接收功能,不能发送邮件哦。使用本程序需要设置的参数:邮件服务器POP3、端口、邮件帐户、密码,连接成功后,邮件列表会显示在“邮件”一栏中,单击任意一个邮件,详细信息会显示在“内容”栏中。
    2022-12-15 05:00:03下载
    积分:1
  • 696518资源总数
  • 105877会员总数
  • 14今日下载