SHPORA.NET

Login:
Pass:

Регистрация

[ Назад ]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

var i,e:integer;

begin

if stringgrid1.Cells[ACol,ARow]='' then begin

if f=0 then stringgrid1.cells[ACol,ARow]:='o'

else

stringgrid1.cells[ACol,ARow]:='x';

f:=not f;

end

else

ShowMessage('Ячейка не пустая');