為Delphi數據表格增加彩色(2)

3.為SpinEdit1構件的OnChange事件編寫響應代碼：

procedure TForm1.SpinEdit1Change(Sender: TObject);
　　 begin
　　 DBGrid1.refresh;
　　 end;

當SpinEdit1構件的值有所改變時，重新刷新DBGrid1。

4.為ColorGrid1的OnChange事件編寫響應代碼：

procedure TForm1.ColorGrid1Change(Sender: TObject);
　　 begin
　　 DBGrid1.refresh;
　 end;

當ColorGrid1的值有所改變時，即鼠標的右鍵或左鍵單擊ColorGrid1重新刷新DBGrid1。

5.為Form1窗體（主窗體）的OnCreate事件編寫響應代碼：

procedure TForm1.FormCreate(Sender: TObject);
　　 begin
　　 ColorGrid1.ForeGroundIndex:=9;
　　 ColorGrid1.BackGroundIndex:=15;
　　 end;

在主窗創建時，將ColorGrid1的初值設定前景為灰色，背景為白色，也即DBGrid的字體顏色為灰色，背景顏色為白色。

6.現在，可以對ColorDBGrid程序進行編譯和運行了。當用鼠標的左鍵或右鍵單擊ColorGrid1時，DBGrid的字體和背景顏色將隨之變化。

在本文中，只是簡單展示了以彩色方式顯示DBGrid的原理，當然，還可以增加程序的復雜性，使其實用化。同樣道理，也可以將這個方法擴展到其他擁有Canvas屬性的構件中，讓應用程序的用戶界面更加友好。