delphi中退出是彈出讓妳確定的幾種確定對話框怎麽寫？

1、打開Delphi7集成開發環境，在默認工程的Form1窗體放壹個Button1按鈕，壹個Edit1編輯框。

2、在Unit1.pas源代碼文件的interface部分定義壹個類，代碼如下。

3、在屬性上按CTRL+Shift+C會生成對應的方法，在SetName和SetScore分別寫如下代碼。

4、雙擊Button1進入事件方法，寫如下代碼。

5、最後F9運行程序，在Edit1輸入小於100的數字20會彈出對話框，顯示' 張三的成績是20'，就設置完成了。