匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 1 0 年前

Delphi季節顏色設計

請設計一個程式,包含一個Button及Label

按下Button會出一個InputBox,可供輸入月份

( 提示:InputBox('月份轉季節','請輸入月份','1') )

當輸入2、3、4月,則Label會出現"春季",顏色為clGreen

當輸入5、6、7月,則Label會出現"夏季",顏色為clRed

當輸入8、9、10月,則Label會出現"秋季",顏色為clTeal

當輸入11、12、1月,則Label會出現"冬季",顏色為clWhite

輸入其他數字則會出現一個ShowMessage顯示"打錯月份囉!"

而Label會出現"N/A",顏色為clYellow

( 提示;使用case來設計程式 )

程式結果請看範列1--MDtest01.exe

如--> http://tuna.pmlab.iecs.fcu.edu.tw/~joney/delphi/MD...

Label的預設屬性用預設值即可,不必如範列中的設定。

請貼程式碼即可

2 個解答

評分
  • 匿名使用者
    1 0 年前
    最佳解答

    你好測試可用. 請自行取用unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Label1: TLabel;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var month :integer;begin  month := strtoint(inputbox('月份轉季節','請輸入月份','1'));  case month of   2..4 :begin label1.Color := clGreen; label1.Caption:='春季'; end;   5..7 :begin label1.Color := clred; label1.Caption := '夏季'; end;   8..10 : begin label1.Color := clteal; label1.Caption :='秋季'; end;   11,12,1:begin label1.Color := clwhite; label1.Caption :='冬季'; end;  else     begin        showmessage('打錯月份嘍');        label1.caption := 'Error';     end;  end;end;end.

    參考資料: 路過
  • 5 年前

    到下面的網址看看吧

    ▶▶http://qoozoo09260.pixnet.net/blog

還有問題?馬上發問,尋求解答。