Question

Delphi7中在下面这段代码中， 我想要添加实现下面几个功能：

Delphi7中在下面这段代码中， 我想要添加实现下面几个功能： 1。 加个欢迎屏幕，就是打开程序后显示的一句话。 2。 这段代码颜色显示有点问题，有朋友帮我看下。总是显示黑色。就执行最后1句 procedure TForm1.Button1Click(Sender: TObject); begin if(edit1.text='6')or (edit1.text='7')then edit2.Text:='今天是休息日，工作的话有双倍工资'; form1.color:=clred; edit2.color:=cllime; if(edit1.text>='1')and(edit1.text<='5')then edit2.Text:='今天必须工作'; form1.color:=clskyblue; edit2.Color:=claqua; if(edit1.text='0')or(edit1.text>='8')then edit2.text:='您输入错误,请重新输入'; edit1.color:=clblack; edit2.color:=clblack; form1.color:=clblack; end; end.

Answer 1

procedure TForm1.Button1Click(Sender: TObject); begin if(edit1.text='6')or (edit1.text='7')then begin edit2.Text:='今天是休息日，工作的话有双倍工资'; form1.color:=clred; edit2.color:=cllime; end; if(edit1.text>='1')and(edit1.text<='5')then begin edit2.Text:='今天必须工作'; form1.color:=clskyblue; edit2.Color:=claqua; end; if(edit1.text='0')or(edit1.text>='8')then begin edit2.text:='您输入错误,请重新输入'; edit1.color:=clblack; edit2.color:=clblack; form1.color:=clblack; end; end; 在Form1.Show里加入 Application.ShowMessage("你要加的话"); end.