Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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;

явно лишнее :)

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.037 c