:-) ReadOnly для ячейки StringGrida

← →
Артём К (2003-01-11 08:20) [0]

Привет всем!

Как установить свойство ReadOnly для ячейки StringGrida?

Я делал так:
if (ARow = Number) then Data.Options := Data.Options - [goEditing] else Data.Options := Data.Options + [goEditing];
Но здесь ячейка становится полностью недоступной. А мне надо
сделать так, чтобы можно было Скопировать информацию.
Короче такое же свойство как у Edita.

:-) Заранее спасибо!

← →
ЮЮ © (2003-01-11 08:49) [1]

procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
if (ARow = Number) then Value := TStringGrid(Sender).Cell[ACol,
ARow] // оставляем то, что было до редактирования

end;

← →
Артём К (2003-01-11 10:47) [2]

Вся фишка в том, что
[Error] : Left side cannot be assigned to

Сам не пробовал, но может получиться:
В обработчике OnKeyPress фильтруй входящий Key (например: если кроме Tab и Esc, то Key:=0). Такая фишка работает на TEdit.
Только насчет клавиши Del - не сработает (у нее двухбайтовый скан-код). Можно попробовать с OnKeyDown - там Key:Word - код вообще любой нажимаемой на клаве кнопки.
Так и содержимое нечем изменять будет как бы редактирование сохраниться :)

Кстати, пример ЮЮ © компилируется (только Cells, а не Cell)

:-) ReadOnly для ячейки StringGrida Найти похожие ветки