델파이 코리아의 팁 게시판에 있는 코드입니다.

{$R *.DFM}



type

TCustomDBGridCracker = class(TCustomDBGrid);





procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

with TCustomDBGridCracker(Sender) do

if DataLink.ActiveRecord = Row - 1 then

Canvas.Brush.Color := clGreen

else

Canvas.Brush.Color := clWhite;

TCustomDBGridCracker(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);



end;

저는 이거를 실행시키니 에러만 나거든여....
procedure TForm1.DBGrid1DrawColumnCell * (Sender: TObject; const
별표있는 곳에서 커서가 놓이면서 에러가 나여
왜 안되는지 어케해야 하는지 가르쳐 주세요
즐거운 하루되세요