接著之前所做的有關時間排程的程式 有時候發生Grid的Column數量不夠 目前我是用新增一大堆，將不要的隱藏起來~~~ 請問是不是有什麼方法可以動態產生Column， 以下是我目前的方法，但並沒有產生新的Column public ColumnA : TColumn; procedure TForm1.Button1Click(Sender: TObject); begin AColumn := TColumn.create(self); <--會錯 AColumn.visible :=true; AColumn.Caption := 'test'; end; 而且也不知道如何將其加入到我要的Grid內!!! ---------------- 平身進退如殘竹， 一睨人才到處是， 獨被蒼天橫冷劍， 何生英雄來殘我。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

There should be some 3rd party VCL letting you to insert a column at run time, but the standard grid/string grid won't let you do it. However, there is a way to make it look like a column is inserted: Draw everything in the OnDrawCell event and do not rely on the string grid to draw the text content (e.g. store the data internally in a list). When a new column is needed, change the ColCount and do an Invalidate for the grid, which in turn trigger the OnDrawCell event and hence you can draw the cells.

public ColumnA : TColumn;    procedure TForm1.Button1Click(Sender: TObject); begin ColumnA := DBGrid1.Columns.Add; ColumnA.visible :=true; ColumnA.Caption := 'test'; end; 可以這樣試試

Sorry~~~ 抱歉~~~ 我發現我用的元件不是標準元件TGrid (原本以為兩個的屬性一樣) 我是QuantumGird的dxDBGrid    可是dxdbgrid1.columns.add  <---並沒有這個屬性 不知道您是否是有用過這個元件~~~ ---------------- 平身進退如殘竹， 一睨人才到處是， 獨被蒼天橫冷劍， 何生英雄來殘我。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

嗯 ... 我沒用過 ... 如果有需要 ... 給我連結, 我 DL 試看看

http://www.devexpress.com/downloads/vcl/pexpgrid.asp    好像可以下傳試用版    聽同學說好像Delphi有Quantum Grid這個元件 不過我沒有用過Delphi 6 如果沒有的話，或下傳的不能用的話 那我在試試好了~~~ 謝謝~~~ ---------------- 平身進退如殘竹， 一睨人才到處是， 獨被蒼天橫冷劍， 何生英雄來殘我。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------