해당 쎌 위에다가 TImage를 올려놓고 그위에 선을그렸더니 잘 되네요...

안녕하세요 하얀까마귀 입니다.

어떤 그리드를 쓰시죠?

프로퍼티에 DefaultDraw 를 False 로 하시면

OnDrawCell <-- 이건 스트링 그리드이고
OnDrawColumnCell <- 이게 디비 그리드 (맞나??? )

이 이벤트가 발생합니다. 여기에서

보이시는 Trect 이 셀의 위치값입니다. 이걸이용해서 그리시면 될것 같네요.

간단하게 그린건데 잘되는군요..


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol = 2 then
  begin
    StringGrid1.Canvas.MoveTo( Rect.Left + ((Rect.Right - Rect.Left) div 2), Rect.Top );
    StringGrid1.Canvas.LineTo( Rect.Left + ((Rect.Right - Rect.Left)div 2), Rect.Top + ((Rect.Bottom -  Rect.Top)div 2) );
    StringGrid1.Canvas.LineTo( Rect.Right, Rect.Top + ((Rect.Bottom -  Rect.Top)div 2) );
  end;
end;