candan 发表于 2013-4-19 17:35:27

计算器程序~~~

看完小甲鱼的delphi入门，自己编写的计算器程序。可以实现Real型的简单计算。
ps:打开的界面
--------------------------------------------------------------------------------------
ps:正常计算界面
-----------------------------------------------------------------------------------------
ps:除数为0的界面
----------------------------------------------------------------------------------------割了吧
源码：
-----------------------------------------------------------------------------------------
ps:遇到的问题
Edit控件右对齐，消息弹出框，Label控件透明
解决方法
在窗体的OnCreat或OnShow中加入
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.handlw.GWL_STYLE)or ES_right);


在判断除数为0后加入ShowMessage('XXOO');


Label的Transparent中设置为True


各种顶小甲鱼~~~

candan 发表于 2013-4-19 17:36:20

邮箱617288633@qq.com

candan 发表于 2013-4-19 17:54:55

求大神赐教，除数为零时，自动返回，让返回值为0。

candan 发表于 2013-4-19 18:02:01

    begin
    Showmessage('除数为0，玩我呢~~~');
    exit;
    end
修正除数为零，直接产生的错误中断，   加了exit；函数

wangyily 发表于 2013-4-19 18:14:02

:D呵呵，顶下

悠悠清风 发表于 2013-4-19 20:50:15

强烈支持楼主ing……

candan 发表于 2013-4-19 22:32:16

悠悠清风 发表于 2013-4-19 20:50 static/image/common/back.gif
强烈支持楼主ing……

激动人心，无法言表！

cyrs 发表于 2014-8-26 19:35:29

学习学习

yangyangcao 发表于 2014-8-28 11:10:16

激动人心，无法言表！

superstarjlj2 发表于 2014-8-28 23:21:10

强烈支持楼主ing……

牡丹花下死做鬼 发表于 2014-8-28 23:49:56


没看懂 自己写了个除法的感觉应该可以了

maoyu 发表于 2016-9-10 11:47:01

好厉害
页: [1]
查看完整版本: 计算器程序~~~