QQ登录

只需一步,快速开始

登录 | 立即注册 | 找回密码

主题

帖子

荣誉

版主

Rank: 20Rank: 20Rank: 20Rank: 20

技术值
查看: 580|回复: 2

[学习笔记] 鱼C记事本V1.0 - 阶段性上机实践(小结)04 - 零基础入门学习Delphi027~028

[复制链接]
最佳答案
727 
累计签到:831 天
连续签到:72 天
冬雪雪冬 发表于 2017-8-19 18:57:27 5802 | 显示全部楼层 |阅读模式

马上注册加入鱼C,享用更多服务吧^_^

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
花了几天的时间终于把这个作业完成了,不仅对memo、对话框和菜单的功能有了更深入的认识,且掌握了编写一个完整程序所需的思路和知识。
其实设计菜单还是很容易的,只要记住&字母是热键,ShortCut是快捷键,-是分隔就行了。另外用到的是对话框控件,delphi已经为我们准备好了很多的对话框,只要直接调用就行了。
1.jpg
以打开文件为例:
  1. OpenDialog1.Execute;
  2. FileName:= OpenDialog1.FileName;
复制代码

这样就把文件名读取进来了。

但是如果选取消就会出错,为此,稍作修改就完善了:
  1. if OpenDialog1.Execute then
  2. FileName:= OpenDialog1.FileName;
复制代码
剪切复制粘贴等功能非常简单,只用一句代码就行了。
“关于”的弹出窗口需调用API函数,具体的代码如下,每个参数的作用还不是很清楚。
  1. ShellAbout(self.Handle,
  2. pChar('冬雪雪冬的记事本 V1.0'),
  3. pChar('此版本已具备初步功能,可以编辑文本文件。'+ #13 + '由冬雪雪冬创建于2017/08/19。'),
  4. HICON(nil));
复制代码
3.JPG
查找和替换的编写比较复杂,至今查找只能实现一次查找,无法完成查找下一个的操作。
另外退出程序会引发FormClose时间,可以在其中加入需要的代码,这里实现了提示保存文件的功能,但不保存如何终止退出还没学会。

附件是源程序和可运行的exe文件。
2.jpg


027.ZIP

224.39 KB, 下载次数: 27

评分

参与人数 1鱼币 +5 收起 理由
小甲鱼 + 5

查看全部评分

本帖被以下淘专辑推荐:

楼层
跳转到指定楼层
最佳答案
0 

尚未签到

gears 发表于 2018-1-28 15:14:01 | 显示全部楼层
请问查找 和 替换 这一部分的代码理解了吗?
最佳答案
0 

尚未签到

小小书生5 发表于 2018-4-10 10:47:06 | 显示全部楼层
学习

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

小甲鱼强烈推荐 上一条 /1 下一条

    移动客户端下载(未启用)
    微信公众号

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备11014136号

Copyright 2018 鱼C论坛 版权所有 All Rights Reserved.

Powered by Discuz! X3.1 Copyright
© 2001-2018 Comsenz Inc.    All Rights Reserved.

小黑屋|手机版|Archiver|鱼C工作室 ( 粤公网安备 44051102000370号 | 粤ICP备11014136号

GMT+8, 2018-4-24 01:22

快速回复 返回顶部 返回列表