OnSelectCell Event를 이용해서...

셀을 벗어날때... 빈값이면.. 체크하도록 했습니다.



그런데 문제가 생기네요...

한 셀에 대한 값을 체크하는 것이 아니라..

모든 셀에 대해서... 공란인가를 체크해버려요...



첫번째 셀이 공란이 아닌것을 확인하고는...

다음 셀이 공란이자~ 에러메시지 발생...

결국 무한루프에 빠져버리네요...



제가 무언가 잘못한거 같은데요...

한 셀씩 체크하는 법.

즉~ 한 셀을 벗어나면서 그 셀만 체크하고 또 다음셀로가서 벗어나면서 그 셀만

체크하게 할순 없나여?



인자로 들어오는 arow, acol은.. 자동 row,col이 되더군요...

답변 부탁드립니다.



참고로 간단하게 대강의 소스는 이렇습니다.



procedure TForm2.OnSelectCell(Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean);

begin

if(stringgrid2.Cells[acol, arow]='') then

begin

showmessage('보드에 빈칸이 있습니다.');

stringgrid2.Col:=acol;

stringgrid2.Row:=arow;

stringgrid2.SetFocus;

exit;

end;

end;