Delphi 程式設計：視覺化開發的藝術

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('你好，Delphi世界！');
end;

var
  i: Integer;
  x: Double;
  s: String;
  b: Boolean;

var
  userInput: String;
  number: Integer;
begin
  userInput := Edit1.Text;
  number := StrToInt(userInput);
  // 現在可以對number進行數學運算
end;

procedure TForm1.CalculateButtonClick(Sender: TObject);
var
  x: Double;
begin
  x := StrToFloat(InputEdit.

## Delphi開發環境的基本功能

在開始使用Delphi進行視覺化開發前，我們需要先了解其核心介面元素。物件檢查器（Object Inspector）是Delphi中最重要的工具之一，它讓開發者能夠直觀地管理和設定各種元件屬性。

### 物件檢查器深度解析

物件檢查器視窗包含兩個主要頁籤：

1. **屬性頁籤**：顯示所選元件的所有可用屬性，左側欄位列出屬性名稱，右側欄位則包含當前的預設值。這裡你可以調整元件的外觀、行為和其他特性。

2. **事件頁籤**：列出所選元件可能的事件處理程式。左側欄位包含事件名稱，右側則有相關的屬性或程式。這是設計元件互動行為的關鍵區域。

除了物件檢查器，結構檢視（Structure View）也是不可或缺的工具，它以樹狀結構顯示所有放置在表單上的物件（元件），幫助開發者直觀地瞭解專案結構。

### 停止執行應用程式的方法

當我在測試Delphi應用程式時，通常會使用以下幾種方式來停止程式執行：

- 點選應用程式視窗的關閉按鈕
- 從選單中選擇「Run」→「Program Reset」（快捷鍵：Ctrl+F2）

這些方法在開發過程中非常實用，特別是當我需要測試程式邏輯或介面設計時。

## Delphi專案的儲存管理

### 專案檔案結構與命名規範

任何Delphi程式都由多個不同檔案組成，包括專案檔、一個或多個單元檔等。專案檔是由Delphi環境自動產生的，不提供手動編輯功能。這就是為什麼它有一個獨特的副檔名（*.dpr），與不會在程式碼編輯器中顯示。

在儲存專案時，我建議遵循以下規則：

1. 使用「Save All」指令儲存整個專案
2. 每個專案應儲存在單獨的資料夾中
3. 為專案資料夾和檔案命名適當的名稱，不要接受預設名稱
4. 檔案名稱只能包含拉丁字元，數字可以從第二個字元開始使用，其他符號在命名時無效

更重要的是，必須為Project1.dpr和Unit1.pas（它們是不同的）指定唯一名稱。

### Delphi程式碼命名標準

重新命名Project1.dpr和Unit1.pas檔案時，遵循Delphi程式碼標準非常重要。根據此標準，所有檔案必須有一個XXX字首。例如：

- Project1.dpr → prjMyTask1.dpr（prj代表Project）
- Unit1.pas → untMyTask1.pas（unt代表Unit）

這個規則在重新命名簡單元件時也適用。這樣的命名方式有助於保持程式碼的組織性和可讀性，特別是在大型專案中。

## Delphi基礎元件詳解

Delphi環境中有許多簡單但功能強大的元件。這些元件被視為「簡單」並非因為它們使用起來比其他元件容易，而是因為在建立圖形使用者介面時，它們經常與其他元件結合使用，形成複雜的互動。

### 表單（Form）元件

表單是Delphi中唯一不在工具面板中的物件。在建立新應用程式時，系統會自動產生一個表單。如果需要在應用程式中使用多個表單，可以增加更多表單到專案中。

在使用Delphi時，可以將自己想像成一位藝術家，表單就是畫布。透過在表單上放置元件，開發者「繪製」應用程式的圖形使用者介面。然後，透過改變元件的屬性，改變它們的外觀。

接下來，開發者會處理元件與使用者的互動。使用者互動意味著表單元件會對使用者的動作做出反應。元件的屬性是它們的特徵，例如名稱、標題、大小或顏色等。

表單物件有一些獨特的屬性，其中最基本的是Name屬性。所有元件都必須有這個屬性，因為需要在程式中呼叫元件時使用名稱。對於表單，我們通常使用描述元件類別的三字母字首，例如frm（Form的縮寫）。如果想將表單命名為"My"，應該將"frmMy"指派給Name屬性。

### 標籤（TLabel）元件

TLabel元件用於顯示可以由使用者或程式更改的文字。以下是使用TLabel的步驟：

1. 建立新專案
2. 將TLabel放在表單上（雙擊工具面板中的TLabel圖示，或單擊圖示然後在表單上單擊）
3. 透過拖曳移動TLabel
4. 將TLabel的Name屬性更改為lblMyLabel
5. 檢查TLabel的標題是否已更改為lblMyLabel（因為預設情況下，TLabel的標題是其名稱）
6. 更改標題為「It's my first label!」
7. 更改TLabel背景顏色為黃色
8. 更改字型和文字顏色（Arial、粗斜體、20號、紅色）
9. 增加另一個TLabel並設定其屬性
10. 選擇表單並更改其屬性（Name：frmLabelExample，Caption：Example of Label）
11. 執行應用程式並測試


TLabel元件看似簡單，但它在介面設計中扮演著重要角色。當我們設定Name屬性時，這個名稱將用於程式碼中參照該元件；而Caption屬性則決定了使用者看到的文字內容。這兩個屬性的分離設計允許開發者在不影響程式碼的情況下變更使用者介面文字，這在多語言應用程式開發中特別有用。

Font和Color屬性的組合可以創造出視覺上吸引人的介面元素，特別是用於提示、警告或強調重要訊息時。在實際應用中，我通常會為不同功能的標籤設定統一的視覺風格，以提高介面的一致性和可用性。

### 文字方塊（TEdit）元件

TEdit元件儲存可以在應用程式建立過程中或執行過程中輸入的文字方塊中顯示的文字來自Text屬性。MaxLength屬性定義文字方塊中的最大符號數，值為0表示沒有字元限制。

文字型透過Font屬性設定。如果將Readonly屬性值設定為True，使用者將無法更改TEdit的文字。這在需要顯示但不允許修改的資訊場景中特別有用。


TEdit是使用者輸入的主要介面元素之一，它看似簡單，但在功能上非常強大。MaxLength屬性在表單驗證中特別重要，可以防止使用者輸入過長的資料導致後端處理問題。

Readonly屬性的巧妙運用可以建立動態顯示資訊的介面元素，例如計算結果或系統狀態顯示。在我的開發實踐中，經常將TEdit與其他元件（如按鈕或下拉選單）組合使用，建立複雜的資料輸入和驗證機制。

對於需要特定格式輸入的場景（如日期、電話號碼），TEdit可以透過事件處理程式進行實時驗證和格式化，提供更好的使用者經驗。

## Delphi元件的命名與組織策略

在開發複雜應用程式時，良好的元件命名和組織策略至關重要。我發現以下方法特別有效：

1. **使用一致的命名字首**：為每種元件類別使用標準化字首（如lblForLabel、edtForEdit）
2. **功能性命名**：元件名稱應反映其功能而非位置或外觀
3. **分層組織**：相關元件可以透過父子關係或命名慣例組織在一起
4. **註解檔案化**：在複雜表單中，增加註解說明元件組的功能和互動關係

這些策略可以大幅提高程式碼的可維護性，特別是當多名開發者在同一專案上工作時。

## 元件屬性設定的最佳實踐

多年的Delphi開發經驗讓我總結出一些元件屬性設定的最佳實踐：

1. **設計時vs執行時**：某些屬性最好在設計時設定（如Name、Align），而其他屬性（如Text、Enabled）可能需要在執行時動態調整
2. **一致的視覺風格**：為相似功能的元件設定一致的視覺屬性，提高介面的專業性和可用性
3. **適當的預設值**：為使用者輸入欄位設定合理的預設值，減少錯誤並提高使用者經驗
4. **考慮可存取性**：選擇適當的字型大小、顏色對比度和標籤位置，確保應用程式對所有使用者都易於使用

遵循這些實踐不僅可以提高應用程式的品質，還能簡化開發和維護過程。

## 從簡單元件到複雜介面

雖然我們討論的是基本元件，但理解這些元素如何組合成複雜介面是至關重要的。在實際應用中，表單、標籤和文字方塊只是構建塊，真正的力量在於它們的組合和互動。

透過掌握這些基礎元件的屬性和行為，開發者可以建立起理解更複雜元件和介面設計的基礎。隨著經驗的增長，你會發現這些簡單元件的創造性組合可以實作各種複雜的使用者介面需求。

Delphi的視覺化開發環境使這個過程變得直觀和高效，讓開發者能夠專注於解決實際問題，而不是被技術細節所困擾。這正是Delphi多年來在企業應用開發領域保持受歡迎的原因之一。

在掌握了這些基礎知識後，下一步就是探索更複雜的元件和事件處理，這將使你能夠建立功能豐富、反應靈敏的應用程式。記住，即使是最複雜的應用程式也是由這些基本構建塊組成的。

Delphi開發的旅程始於理解這些基本元素，但其潛力遠不止於此。透過實踐和探索，你將能夠充分利用Delphi強大的視覺化開發環境，建立專業、高效的應用程式。

## Delphi視窗元件：基礎操作與實戰應用

在視窗應用程式開發中，掌握基本元件的使用是成功的第一步。Delphi提供了豐富的視覺化元件，讓開發者能夠快速構建功能完整的應用程式介面。本文將探討幾個最常用的元件操作技巧，並示範如何有效處理使用者互動事件。

### 文字編輯框（TEdit）的進階操作

TEdit元件是Delphi中最常用的文字輸入控制項之一。透過以下步驟，我們可以充分掌握它的操作方法：

#### 調整大小與位置

要調整TEdit的大小，只需將滑鼠指標放在其邊緣的黑色小方塊上，按住左鍵並拖曳至所需大小。如果沒有看到這些黑色方塊，表示元件尚未被選中，此時需先點選元件進行選取。

若要移動TEdit的位置，則將滑鼠放在元件上，按住左鍵拖曳至新位置後釋放即可。這種直覺的操作方式讓介面設計變得極為靈活。

#### 關鍵屬性設定

為了讓元件在程式中易於識別和操作，我們應該設定其Name屬性：

1. 在物件檢視器中點選Name屬性
2. 輸入有意義的名稱，如`edtMyText`
3. 此時在結構檢視中，原本的`Edit1: TEdit`會變更為`edtMyText: TEdit`

元件的顯示文字可透過Text屬性設定：

#### 外觀自訂

TEdit的文字顏色可透過Font屬性進行更改：

1. 點選Font屬性旁的+號展開子屬性
2. 選擇Color屬性並點選箭頭顯示顏色清單
3. 選擇所需顏色，如藍色

#### 唯讀模式的應用

將TEdit設為唯讀模式是一個實用功能：

1. 將ReadOnly屬性設為True
2. 執行應用程式後，將無法修改文字框中的內容



唯讀模式看似限制了文字框的基本功能，但在實際應用中非常有用。在程式執行過程中，我們可以根據特定條件動態切換ReadOnly屬性，控制使用者何時可以編輯內容。例如，在資料驗證前禁止編輯，驗證後再開放編輯許可權；或在特定操作完成前鎖定某些欄位，避免使用者輸入造成邏輯錯誤。

### 按鈕元件（TButton）的實作技巧

TButton是應用程式中最常用的互動元件，通常用於觸發特定程式碼的執行。讓我們看如何有效使用它：

#### 基礎設定與熱鍵指定

建立按鈕元件的步驟如下：

1. 在工具面板中雙擊TButton圖示，或點選圖示後再點選表單的任意位置
2. 將Name屬性設為有意義的名稱，如`btnMyButton`
3. 將Caption屬性設為`&Run`



在Caption屬性中使用&符號有特殊意義 - 它會將緊跟的字母設為熱鍵，在介面上表現為帶下劃線的字母。使用者可以透過按下Alt+該字母來觸發按鈕，而無需使用滑鼠點選。這大幅提升了應用程式的可用性，特別是對於經常使用鍵盤操作的使用者。

若需在Caption中顯示&符號本身，則需連續使用兩個&（即`&&`）。例如，若要顯示"This & That"文字，Caption屬性應設為"This && That"。

#### 熱鍵的使用

設定Caption為`&Run`後，執行應用程式時：

1. 按鈕上的"R"字母會顯示下劃線
2. 可以透過按下Alt+R鍵來觸發按鈕
3. 使用熱鍵觸發時，按鈕不會顯示被按下的視覺效果，但功能仍會執行

這種設計為使用者提供了多種操作選擇，同時也符合視窗應用程式的標準設計模式。

## 事件處理：按鈕點選事件的實作

視覺化元件能夠產生並處理數十種不同的事件，如滑鼠點選、按鈕按下、鍵盤按鍵等。瞭解如何正確處理這些事件是開發互動應用程式的關鍵。

### 事件處理機制解析

當使用者點選滑鼠按鈕時，Windows會向應用程式傳送"滑鼠按鈕被點選"的訊息。應用程式會根據開發者編寫的事件處理程式來回應這個事件。

事件處理程式是一段回應特定事件的程式碼，通常在程式碼編輯器視窗中撰寫。對於按鈕點選事件，處理流程如下：

### 程式碼編輯器視窗

程式碼編輯器視窗最初標題為Unit1。可以在編輯器視窗中開啟多個原始碼檔案，每個開啟的檔案都有自己的標籤，標籤顯示其原始碼檔案名稱。

### 簡單事件與複雜事件

簡單事件只包含事件來源，在事件處理程式中由Sender引數指向。而複雜事件的處理程式需要額外的引數，例如滑鼠指標的座標。

### 實作按鈕點選事件處理

OnClick事件（也稱為Press Event）是開發應用程式中最常用的事件之一，通常源於滑鼠點選某個元件。以下是為表單frmMy上的命令按鈕btnMy寫入按鍵事件處理程式的步驟：

1. 在設計檢視中雙擊該按鈕
2. Delphi會自動生成事件處理程式的框架程式碼

```delphi
procedure TfrmMy.btnMyClick(Sender: TObject);
begin
end;

procedure TfrmMy.btnMyClick(Sender: TObject);
begin
  frmMy.Close;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender = Button1 then
    ShowMessage('Button1 clicked')
  else if Sender = Button2 then
    ShowMessage('Button2 clicked');
end;

procedure TfrmMy.btnMyClick(Sender: TObject);
begin
  frmMy.Close;
end;

<元件名稱>.<方法名稱>;

Edit1.Clear;

<元件名稱>.<屬性名稱> := <值>;

procedure TfrmMy.btnMyClick(Sender: TObject);
begin
  frmMy.Сolor := clWhite;
end;

<元件1名稱>.<屬性1> := <元件2名稱>.<屬性2>;

lblMy.Caption := edtMy.Text;

procedure TfrmMy.btnMyClick(Sender: TObject);
begin
  edit1.Clear;
  edit1.Color := clBlue;
end;

// 第一個按鈕的點選事件
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Enabled := True;
end;

// 第二個按鈕的點選事件
procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := Edit1.Text;
  Edit1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Enabled := True;
  Label2.Enabled := False;
  Label3.Enabled := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Enabled := False;
  Label2.Enabled := True;
  Label3.Enabled := False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Label1.Enabled := False;
  Label2.Enabled := False;
  Label3.Enabled := True;
end;

// 背景色按鈕（範例）
procedure TForm1.btnBackRed(Sender: TObject);
begin
  Label1.Color := clRed;
end;

// 字型顏色按鈕（範例）
procedure TForm1.btnFontBlue(Sender: TObject);
begin
  Label1.Font.Color := clBlue;
end;

// 字型大小按鈕（範例）
procedure TForm1.btnSize12(Sender: TObject);
begin
  Label1.Font.Size := 12;
end;

// 字型家族按鈕（範例）
procedure TForm1.btnFontArial(Sender: TObject);
begin
  Label1.Font.Name := 'Arial';
end;

RAD := (DEGR * 3.14) / 180;

<變數名稱> := <表示式>;

procedure TfrmMy.btnMyClick(Sender: TObject);
var
  k: Integer;
begin
  // 程式碼使用變數k
end;

// 整數除法與餘數範例
13 div 4 = 3     13 mod 4 = 1
-13 div 4 = –3   -13 mod 4 = –1
13 div –4 = –3   13 mod –4 = 1
-13 div –4 = 3   -13 mod –4 = –1
0 div 2 = 0      1 mod 2 = 1
2 div 5 = 0      2 mod 5 = 2

// 加法計算器的事件處理程式
Var
  a, b, c: Single;
Begin
  a := StrToFloat(edtA.Text); // 取得第一個數字
  b := StrToFloat(edtB.Text); // 取得第二個數字
  c := a + b;                 // 計算兩數之和
  
  lblResult.Visible := true;   // 顯示結果標籤
  lblResult.Caption := FloatToStr(c); // 設定結果值
end;

lblAnswer.Caption := edtA.Text + '+' + edtB.Text + '=' + FloatToStr(c);

ROUND(3.5) = 4;  // 向上取整到偶數4
ROUND(2.5) = 2;  // 向下取整到偶數2

var
  num, fracPart: Real;
  intPart: Integer;
begin
  num := 12.345;
  
  // 方法1：使用TRUNC和減法
  intPart := TRUNC(num);
  fracPart := num - intPart;
  
  // 方法2：使用INT函式
  intPart := TRUNC(num);
  fracPart := num - INT(num);
  
  // 顯示結果
  ShowMessage('整數部分: ' + IntToStr(intPart) + 
              '，小數部分: ' + FloatToStr(fracPart));
end;

var
  height, distance: Real;
  earthRadius: Real;
begin
  // 設定地球半徑（公里）
  earthRadius := 6350;
  
  // 取得高度（公里）
  height := StrToFloat(edtHeight.Text);
  
  // 計算到地平線的距離
  // 使用畢氏定理：distance = sqrt((R+h)² - R²)
  distance := Sqrt(Sqr(earthRadius + height) - Sqr(earthRadius));
  
  // 顯示結果
  lblResult.Caption := '到地平線的距離: ' + 
                       FloatToStr(distance) + ' 公里';
end;

var
  x1, y1, x2, y2, x3, y3: Real; // 三個頂點的坐標
  a, b, c: Real;                // 三邊長度
  perimeter, area, s: Real;     // 周長、面積和半周長
begin
  // 取得頂點坐標
  x1 := StrToFloat(edtX1.Text); y1 := StrToFloat(edtY1.Text);
  x2 := StrToFloat(edtX2.Text); y2 := StrToFloat(edtY2.Text);
  x3 := StrToFloat(edtX3.Text); y3 := StrToFloat(edtY3.Text);
  
  // 計算三邊長度
  a := Sqrt(Sqr(x2-x1) + Sqr(y2-y1));
  b := Sqrt(Sqr(x3-x2) + Sqr(y3-y2));
  c := Sqrt(Sqr(x1-x3) + Sqr(y1-y3));
  
  // 計算周長
  perimeter := a + b + c;
  
  // 計算面積（使用海倫公式）
  s := perimeter / 2; // 半周長
  area := Sqrt(s * (s-a) * (s-b) * (s-c));
  
  // 顯示結果
  lblPerimeter.Caption := '三角形周長: ' + FloatToStr(perimeter);
  lblArea.Caption := '三角形面積: ' + FloatToStr(area);
end;

var
  Exist: Boolean; // 布林型別變數

(2*2>4) or not (6=7) and (4-1<=3)
(4>4) or not (6=7) and (3<=3)
false or not false and true
false or true and true
false or true
True
__CODE_BLOCK_31__pascal
(x > -4) and (x <= 18.3)
__CODE_BLOCK_32__pascal
procedure TForm1.btnToggleClick(Sender: TObject);
begin
  if lblStatus.Visible = True then
    lblStatus.Visible := False
  else
    lblStatus.Visible := True;
end;
__CODE_BLOCK_33__pascal
procedure TForm1.btnToggleClick(Sender: TObject);
begin
  lblStatus.Visible := not lblStatus.Visible;
end;
__CODE_BLOCK_34__pascal
procedure TForm1.btnRedClick(Sender: TObject);
begin
  lblRed.Visible := True;
  lblYellow.Visible := False;
  lblGreen.Visible := False;
end;

procedure TForm1.btnYellowClick(Sender: TObject);
begin
  lblRed.Visible := False;
  lblYellow.Visible := True;
  lblGreen.Visible := False;
end;

procedure TForm1.btnGreenClick(Sender: TObject);
begin
  lblRed.Visible := False;
  lblYellow.Visible := False;
  lblGreen.Visible := True;
end;
__CODE_BLOCK_35__pascal
procedure TForm1.btnCompareClick(Sender: TObject);
var
  num1, num2: Integer;
begin
  num1 := StrToInt(edtNum1.Text);
  num2 := StrToInt(edtNum2.Text);
  
  if num1 > num2 then
    lblResult.Caption := 'True'
  else
    lblResult.Caption := 'False';
end;

procedure TForm1.btnCheckClick(Sender: TObject);
var
  num, digit1, digit2, digit3: Integer;
begin
  num := StrToInt(edtNumber.Text);
  
  // 提取三個位數
  digit1 := num div 100;
  digit2 := (num div 10) mod 10;
  digit3 := num mod 10;
  
  // 檢查任意兩位數之和是否等於第三位數
  if (digit1 + digit2 = digit3) or 
     (digit1 + digit3 = digit2) or 
     (digit2 + digit3 = digit1) then
    lblResult.Caption := 'True'
  else
    lblResult.Caption := 'False';
end;

If <邏輯表示式> Then
  <陳述式1>
Else
  <陳述式2>;

procedure TfrmMy.btnMaxClick(Sender: TObject);
var
  a, b, m: integer;
begin
  a := StrToInt(edtA.Text);
  b := StrToInt(edtB.Text);
  if a > b then
    m := a
  else
    m := b;
  lblMax.Caption := IntToStr(m);
end;

If x < 0 Then
begin
  y := 1;
  k := k + 1;
end
Else
begin
  y := 2 * x;
  k := x;
end;

If <邏輯表示式> Then
  <陳述式1>;

procedure TForm1.btnCheckDivisionClick(Sender: TObject);
var
  m, n: Integer;
begin
  m := StrToInt(edtM.Text);
  n := StrToInt(edtN.Text);
  
  if n mod m = 0 then
    lblResult.Caption := IntToStr(n div m)
  else
    lblResult.Caption := 'n cannot be divided by m';
end;

procedure TForm1.btnCheckPalindromeClick(Sender: TObject);
var
  num, digit1, digit3: Integer;
begin
  num := StrToInt(edtNumber.Text);
  
  digit1 := num div 100;       // 取得百位數
  digit3 := num mod 10;        // 取得個位數
  
  if digit1 = digit3 then
    lblResult.Caption := 'Is a palindrome'
  else
    lblResult.Caption := 'Not a palindrome';
end;

procedure TForm1.btnFindMinMaxClick(Sender: TObject);
var
  a, b, c, min, max: Real;
begin
  a := StrToFloat(edtA.Text);
  b := StrToFloat(edtB.Text);
  c := StrToFloat(edtC.Text);
  
  // 找最大值
  if (a > b) and (a > c) then
    max := a
  else if (b > a) and (b > c) then
    max := b
  else
    max := c;
    
  // 找最小值
  if (a < b) and (a < c) then
    min := a
  else if (b < a) and (b < c) then
    min := b
  else
    min := c;
    
  lblMax.Caption := FloatToStr(max);
  lblMin.Caption := FloatToStr(min);
end;