开发者社区> imzdx> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

Delphi第一个入门程序——鼠标点击计数 - imsoft.cnblogs

简介: 实现的效果如下:   制作要点:   添加一个按钮Button1和一个标签Label1,双击按钮进入编程界面在var  Form1: TForm1;下面一行加上  n:integer;//定义变量。
+关注继续查看

实现的效果如下:


 

制作要点:

  添加一个按钮Button1和一个标签Label1,双击按钮进入编程界面在var  Form1: TForm1;下面一行加上  n:integer;//定义变量。

  然后在button1的实现代码处加入  label1.caption:=inttostr(n+1);   n:=n+1;  即可完成!

具体代码为:源代码下载

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.caption:=inttostr(n+1);
  n:=n+1;
end;

end.

 


程序美化:

  菜单栏Project——>Options——>Application选项卡,加入title和icon实现工具栏的现实以及程序的图标。

  菜单栏Project——>Options——>Version info选项卡,勾选第一个方框,在CompanyName中加入“Sunrising”,FileDescription中加入“今天你点了吗?”。实现修改程序公司,和程序名称。

 

可能会出现的问题:

  编译(F9)之后,在保存的项目目录下没有找到生成的程序,解决方法:菜单栏File——>Save all,再编译一次,就OK了。

  程序中出现红色错误,请看准你选用的组件,以及使用的属性方法,定义的变量就基本没有问题。

心得:

  用Delphi做的这个小东西,第一次感觉到编程的乐趣,即很有目的地做一件事,并且知道自己在做什么……

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
物联网iot sutdio报警弹窗
当数据达到某个阀值时需要进行报警,来告知用户。除了电话、短信等通知,可以通过iot studio更直观的看到数据发生变化,当报警发生时弹窗告知。 此方法只适用于设备数量较少的。
37 0
制作SD卡img文件,并扩容
/********************************************************************************** * raspi-config Expand root partition to fill SD card 原理 * 说明: * 想知道树莓派是如何完成SD卡扩展的,记录相关文档。
1478 0
16种基于 CSS3 & SVG 的创意的弹窗效果
  在去年,我给大家分享了《基于 CSS3 的精美模态窗口效果》,而今天我要与大家分享一些新鲜的想法。风格和趋势变化,要求更加适合现代UI的不同的效果。这组新模态窗口效果包含了一些微妙的动画,还有一些应用了SVG变形技术。
837 0
你在AutoHotKey面前居然敢比调音量 - imsoft.cnblogs
当你正在电脑游戏中酣战之际、或者正沉浸在动作大片紧张激烈的情节中、或者正在全神贯注的聆听优美动听音乐……,在这些场景中,如果你需要迅速对音量进行调节(例如增大减小音量,或者静音)怎么办?难道返回Windows桌面,打开系统音量控制窗口,拖动音量控制杆来调节音量?这样太扫兴了!对于使用高档多媒体键盘的用户来说,只需轻轻点击音量控制键即可调节音量,不过普通键盘却没有此功能。
1378 0
搜搜(www.soso.com),I 老虎油!
搜搜(www.soso.com),I 老虎油! 太阳火神的美丽人生 (http://blog.csdn.net/opengl_es) 本文遵循“署名-非商业用途-保持一致”创作公用协议 转载请保留此句:太阳火神的美丽人生 -  本博客专注于 敏捷开发及移动和物联设备研究:iOS、Android、Html5、Arduino、pcDuino,否则,出自本博客的文章拒绝转载或再转载,谢谢合作。
1532 0
PotPlayer播放器——最强大的播放器 - imsoft.cnblogs
PotPlayer下载:链接 http://pan.baidu.com/s/17vgMM 密码: 8buc   PotPlayer关联图标修改方法:打开安装目录替换目录下的PotIcons.dll文件即可。
1882 0
098_《Delphi5高级编程丛书之四:COM、CORBA与Internet编程》
《Delphi5高级编程丛书之四:COM、CORBA与Internet编程》 Delphi 教程 系列书籍 (098) 《Delphi5高级编程丛书之四:COM、CORBA与Internet编程》 网友(邦)整理 EMail: shuaihj@163.
1358 0
用Delphi创建IIS虚拟目录
  //可以添加ACTIVE DS TYPE LIBRARY    想把自己的东西整理出来已经很久了,可是一直没有时间,自己的水平又太差,也怕耽误别人的时间,所以至今没写出任何东西出来。可是每次看到别人的文章心里也痒痒,于是找来自己在www.delphibbs.com上发表过的一个帖子,以回馈大家。
566 0
+关注
imzdx
数据库相关技术专家
322
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载