首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi编程

2012-02-06 
delphi编程求救在窗体Form1上画一个名称为Command1、标题为“计算”的命令按钮;画3个文本框,名称分别为Text1、

delphi编程求救
在窗体Form1上画一个名称为Command1、标题为“计算”的命令按钮;画3个文本框,名称分别为Text1、Text2和Text3;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”、“=”符;再建立一个含有4个单选按纽的RadioGroup组件,名称为RadioGroup   1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个整数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Text3,程序运行情况如图所示。请编写按钮Command1的Click事件。

[解决办法]
with radiogroup1 do
begin
case ItemIndex of
0: edit3.Text:=inttostr(strtoint(edit1.Text)+strtoint(edit2.Text));
1:edit3.Text:=-
2: edit3.Text:=*
3: /
end;
end;

热点排行