stringgrid. проблема

[lblondy]

У меня такая проблемка. в stringgrid в определенные ячейки (не все) вводятся числа. мне нужно сделать так, чтобы эти (только) ячейки пользователь не мог изменять. подскажите пожалуйста

[phomm]

procedure TForm1.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
with (Sender as TStringGrid) do 
  begin  
  if (aCol=-1) or (aRow=-1) // если клетка вне поля - то выйдем, иначе может крешнуться
    then exit;
  if // здесь мегаусловие на все ваши клетки :D типа так ((acol=5) and (arow=10)) or остальные условия в том же духе
    then Options := Options - [goediting];  //запрещаем изменять весь грид
    else Options := Options + [goediting]; // разрешаем изменять весь грид
  end;
end;

[Serge_Bliznykov]

....StringGrifMouseDown

ну да, а если пользователь ткнул не мышкой, а клавишами управления перешёл?
можно изменять всё, что угодно?!

[phomm]

ну да.. точно.. ну, собственно, тогда можно Onselectcell использовать, исправил пост

просто взял из проекта одного своего , да подрезал там-сям, а там в проекте ещё кой-чего навешано на мышеманипуляции и на селектселл, и вот только это и скопировал, ну, думаю, поможет всё равно )

[lblondy]

дико извиняюсь за свою недалекость, но почему в mousetocell в скобках 4 координаты????

[phomm]

блин..я маразматик )) извините меня , на работе загон был.. в голове все мысли левые..

исправляю пост, смотрите в нем код )

[lblondy]

не работает((((((( получается,что мне нужно запретить изменять несколько ячеек....

[phomm]

давайте подробное описание всех ячеек (которые надо) и данных грида - сколько всего и сколько фиксированных ячеек, и давайте уже, наконец, код, а то не понять, что Вам надо, НАУЧИТЕСЬ излагать ВАШИ проблемы

[lblondy]

for l:=1 to 16 do //всего должна выбрать 16 ячеек
begin
repeat   // программа сама выберает номер ячейки
 i:=random(9)+1;
 j:=random(n)+1;
until (StringGrid1.Cells[i,j-1]='');
StringGrid1.Cells[i,j-1]:=IntToStr(a[j,i]); //записывает в stringgrid 
//соответствующие значения из готового массива А
end;

и те ячейки, куда она запишет и нужно запретить изменять пользователю (все остальные кроме этих можно и нужно изменять)
в stringgrid 1 фиксированный столбец, 9 нефиксированных. количество строк изменяется в зависимости от уровня игры(курсовая--нужно сделать игру) от 3 до 8 строк. вроде все.

[Прик]

В коде phomm нет "мегаусловий", т.к. до последнего не были известны критерии, по которым запрещается ввод в ячейки.

Теперь можно код дополнить.
При записи в ячейку:

  StringGrid1.Cells[i,j-1]:=IntToStr(a[j,i]); 
  StringGrid1.Objects[i,j-1] := TObject(1); //добавляем признак блокировки ячейки

В процедуре StringGridSelectCell:

  ...
  if Integer(StringGrid1.Objects[ACol, ARow]) = 1 then
    then Options := Options - [goediting]  //запрещаем изменять весь грид
    else Options := Options + [goediting]; // разрешаем изменять весь грид
  end;