Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Вниз
:-) 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
← →
Tano (2003-01-11 21:41) [3]Сам не пробовал, но может получиться:
В обработчике OnKeyPress фильтруй входящий Key (например: если кроме Tab и Esc, то Key:=0). Такая фишка работает на TEdit.
Только насчет клавиши Del - не сработает (у нее двухбайтовый скан-код). Можно попробовать с OnKeyDown - там Key:Word - код вообще любой нажимаемой на клаве кнопки.
Так и содержимое нечем изменять будет как бы редактирование сохраниться :)
Кстати, пример ЮЮ © компилируется (только Cells, а не Cell)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
