Delphi 7 - TDBGrid風格

Question

如何在Delphi 7中使用風格化表格？ 例如：

Answer 1

如果你的意思是你想爲主題的TDBGrid組件，您可以使用從傑里米朝鮮和Andreas Hausladen的Themed DBGrid runtime replacement。

Answer 2

我寫的，併爲你測試德爾福7和Windows 8.1

使用事件DrawColumnCell這個例子來改變顏色或別的東西。

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
    try 
    if Column.FieldName = 'FIRST_NAME' then 
     DBGrid1.Canvas.Brush.Color := clGreen; 
    finally 
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
    end; 
end; 

下載完整的例子： file