if(edit1.text='6')or (edit1.text='7')then
edit2.Text:='今天是休息日,工作的話有雙倍工資';
form1.color:=clred;
edit2.color:=cllime;
if語句只對其下的壹行有作用,之後的代碼無論if語句怎樣都會執行,應該加上begin...end;
if 條件 then
begin
end;
整個代碼修改如下:
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 else //增加內容
if(edit1.text>='1')and(edit1.text<='5')then
begin //增加內容
edit2.Text:='今天必須工作';
form1.color:=clskyblue;
edit2.Color:=claqua;
end else //增加內容
if(edit1.text='0')or(edit1.text>='8')then
begin //增加內容
edit2.text:='您輸入錯誤,請重新輸入';
//edit1.color:=clblack; //去掉內容
edit2.color:=clblack;
form1.color:=clblack;
end; //增加內容
end;
另外,歡迎界面。
新建壹個Form2。然後在Form1裏添加壹個定時器Timer1,其Interval屬性設置為1,OnTimer事件代碼如下:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Form2.ShowModal;
end;
就可以顯示出Form2窗口了。剩下的事就是編輯Form2,來達到妳要顯示的效果。