ReadOnly колонка в StringGrid

← →
phan (2003-11-04 11:55) [0]

Как сделать неизменяемую колонку в стринггриде?

Делаю так:
procedure Tfrm.sgKeyPress(Sender: TObject; var Key: Char); begin if (sg.Col>2)and(sg.Col<6) then //NOTHING!!! else Key:=#0; end;

Но клавиши (например del) работают. С KeyUp&KeyDown промучился
но так и не понял.

← →
gek © (2003-11-04 12:06) [1]

if (sg.Col>2)and(sg.Col<6) then
Options:=Options-[goEditing]
else
Options:=Options+[goEditing]

//
sgKeyDown(var Key: Word; Shift: TShiftState);
key:=0;

← →
TUser © (2003-11-04 13:26) [2]

> KeyUp&KeyDown

Я только что делал такую же фичу. Прописал в OnSelectCell. См. http://delphi.mastak.ru/cgi-bin/forum.pl?id=1067583912&n=0

← →
phan (2003-11-05 00:36) [3]

Спасибо. Супер!!!

>if (sg.Col>2)and(sg.Col<6) then
>Options:=Options-[goEditing]
>else
>Options:=Options+[goEditing]

Только не совсем так вместо sg.Col нужно юзать
ACol
из параметров обработчика onSelectCell.

А это:
sgKeyDown(var Key: Word; Shift: TShiftState); key:=0; явно лишнее :) Всем еще раз спасиб, получилось простенько и приятно, а главное все еще интуитивно понятный интерфейс.

ReadOnly колонка в StringGrid Найти похожие ветки