程式碼如下 void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,       const TRect &Rect, int DataCol, TColumn *Column,       TGridDrawState State) {     TCanvas *Canvas = DBGrid1->Canvas;     Canvas->Font->Color = clRed;     Canvas->Font->Size = 8;     String S1, S2;          switch(Column->Index)     {         case 2:             Column->Title->Caption = "";             S1 = "5";             S2 = "6";             Canvas->TextOut(Rect.Left+2, 2, S1);             Canvas->TextOut(Rect.Left+2, 16, S2);         break;     } }    問題如下圖     拉下方ScrollBar,造成第3張圖標題5不見,請問該如何處理?謝謝!

Fittech你好:     你可以試著攔截TDBGrid的WM_HSCROLL訊息,然後在裡面寫重繪的code 

kevinguo: 若使用WM_HSCROLL並無法得到DBGrid1DrawColumnCell中Column的資料,好像不可行,若你覺得可行,可否提供程式碼,謝謝!

Fittech:      我這台電腦沒灌BCB, 我提供delphi程式碼, 語法應該差不多, 參考看看  < class="code"> type TDBGrid = class(DBGrids.TDBGrid) protected procedure WMHSCROLL(var msg: TWMSCROLL); message WM_HSCROLL; end; type TForm1 = class(TForm) DBGrid1: TDBGrid; Table1: TTable; DataSource1: TDataSource; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); end; var Form1: TForm1; implementation {$R *.dfm} { TDBGrid } procedure TDBGrid.WMHSCROLL(var msg: TWMSCROLL); begin inherited; form1.DBGrid1.Refresh; //或是改變一下Columns的寬度也可以 :) //form1.DBGrid1.Columns[2].Width:=form1.DBGrid1.Columns[2].Width 1; //form1.DBGrid1.Columns[2].Width:=form1.DBGrid1.Columns[2].Width-1; end; //這邊是照抄你的程式碼 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var S1, S2:string; Canvas:TCanvas; begin Canvas := DBGrid1.Canvas; Canvas.Font.Color := clRed; Canvas.Font.Size := 8; if Column.Index=2 then begin S1 := '5'; S2 := '6'; Canvas.TextOut(Rect.Left 2, 2, S1); Canvas.TextOut(Rect.Left 2, 16, S2); end; end;