




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、简单的计时器制作delphi的timer组件的使用制作简单的文档编辑器delphi中对话框的示例第一,打开delphi编辑器后,进行界面的布置,需要的组件有:fontdialog: colordialog: savedialog: opendialog: memo: button:第二,编写代码,代码如下:unit unit1;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls;type tform1 = class(tform) m
2、emo1: tmemo; button1: tbutton; button2: tbutton; opendialog1: topendialog; savedialog1: tsavedialog; button3: tbutton; button4: tbutton; fontdialog1: tfontdialog; colordialog1: tcolordialog; procedure button1click(sender: tobject); procedure button2click(sender: tobject); procedure button3click(send
3、er: tobject); procedure button4click(sender: tobject); private private declarations public public declarations end;var form1: tform1;implementation$r *.dfmprocedure tform1.button1click(sender: tobject);begin if opendialog1.execute then memo1.lines:=opendialog1.files;end;procedure tform1.button2click
4、(sender: tobject);beginif savedialog1.execute thenmemo1.lines.savetofile(savedialog1.filename);end;procedure tform1.button3click(sender: tobject);begin if fontdialog1.execute then memo1.font:=fontdialog1.font;end;procedure tform1.button4click(sender: tobject);begin if colordialog1.execute then memo1.color:=colordialog1.c
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 针刺伤的预防措施
- 适合托班的课件
- 2025版新教材高中语文课时素养评价二立在地球边上放号红烛峨日朵雪峰之侧致云雀含解析部编版必修上册
- 第六单元口语交际:《朋友相处的秘诀》(教学设计)2023-2024学年部编版语文四年级下册
- 陕西省2024年中考数学解答专项辅助圆问题练习
- 针灸治疗小儿疾病
- 钢构基础知识
- 生物人教版2024版七年级上册1.2.3动物细胞教案01
- 上级下级工作汇报
- 停止抱怨演讲稿
- 电动机检查(抽芯)记录
- (WORD版可修改)JGJ59-2023建筑施工安全检查标准
- 人教版初一七年级下册数学课时练《5.3.2 命题、定理、证明》试题试卷
- 成人心肺复苏(双人)课件
- (高职)国际贸易理论与实务ppt课件(完整版)
- 跨境电商B2B实务全套ppt课件完整版教学教程-最新
- 湘教版高中地理必修第二册 4.3 海洋权益与我国海洋发展战略 教学课件
- 《民航地面服务与管理》项目六课件
- 《宪法学》教案
- 夸美纽斯《大教学论》PPT课件
- 数独比赛“六宫”练习题(96道)练习
评论
0/150
提交评论