鱼C论坛

 找回密码
 立即注册
查看: 756|回复: 2

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

[复制链接]
最佳答案
853 
发表于 2017-8-19 18:57:27 | 显示全部楼层 |阅读模式

马上注册加入鱼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, 下载次数: 36

评分

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

查看全部评分

本帖被以下淘专辑推荐:

最佳答案
0 
发表于 2018-1-28 15:14:01 | 显示全部楼层
请问查找 和 替换 这一部分的代码理解了吗?
最佳答案
0 
发表于 2018-4-10 10:47:06 | 显示全部楼层
学习
*滑块验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

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

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

GMT+8, 2018-7-17 02:33

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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