Normalnya dbgrid di set drawing false sehingga jika kita memiliki data yang terlalu panjang deret stringnya akan cenderung jadi masalah, dan tidak nyaman untuk dilihat. Coba kode berikut letakan pada OnDrawColumnCell atau OnDrawDataCell event:
procedure dbgrid1.GridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Text: string;
R: TRect;
begin
R := Rect;
Text := Column.Field.AsString;
Grid.Canvas.FillRect(Rect); // clear the canvas
Grid.Canvas.Font.Size := 8; // set to ukuran font size
// draw text using WORDBREAK
DrawText(Grid.Canvas.Handle, PChar(Text), Length(Text), R, DT_WORDBREAK);
end;
Anda bisa mengatur besar kecilnya font .
Semoga bermanfaat 
Filed under: Programing
Aku dah coba tapi kok gak bisa ya isi kolom yang panjang tetep terpotong dan font nya gak bisa kecil tuh…. (im sad)
aku pake Delphi 7, DBGrid dg dua kolom.
percobaan: aku taruh di event OnDrawDataCell = error;
aku taruh di event OnDrawColumnCell = jalan tapi gak ngefek..
please, explain to me about this case……
ak dulu nyobanya di delphi6 n win 98 blom ak coba di delphi7, kapan2 ak coba di delphi7 deh.
DBGrid1.DefaultDrawing:= False; // coba aja kalo masih ngga’ bisa
coba deh munk