Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по Стринггриде

Oleg_teacher © (2007-05-04 13:14:00)
Как можно не дать возможность вводить числа в одну (например) 3 колонку стринггрида?

clickmaker (2007-05-04 15:33:00) [1]

> [9] Oleg_teacher © (04.05.07 14:35)

а с чего бы ему быть недоступным?

Oleg_teacher (2007-05-04 14:35:00) [2]

> ну типа : if (not IsCharAlpha(key) ) and (StringGrid1.Col=2)
> then ...

Спасибо помог не знал что StringGrid1.Col доступно в онкейпресс!!!

Elen (2007-05-04 14:14:00) [3]

> а для только например третьего столбца

ну типа : if (not IsCharAlpha(key) ) and (StringGrid1.Col=2) then ...

MBo (2007-05-04 14:13:00) [4]
что-нибудь подобное:
if ACol = 3 then
Value := 'llllllllll'

Oleg_teacher (2007-05-04 14:11:00) [5]

> OnGetEditMask

Вроде ето не то но я неразобрался. Можна поподробне, но насколько я понял ето маска ввода и впринціпе можна вводить все но потом оно отображаться будет так как ти задаш

Oleg_teacher (2007-05-04 14:09:00) [6]

> Видимо так :
>
> procedure TForm1.StringGrid1KeyPress(Sender: TObject; var
> Key: Char);
> begin
> if not IsCharAlpha(key) then key:=#0;
> end;

Ето будет для всего стринггрида. а для только например третьего столбца надо только букви а для остальних можно вводить все

MBo (2007-05-04 14:06:00) [7]
OnGetEditMask

Elen (2007-05-04 14:04:00) [8]

> можна вводить буквы а нельзя вводить числа.

Видимо так :

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if not IsCharAlpha(key) then key:=#0; end;

Oleg_teacher (2007-05-04 13:40:00) [9]

> OnSelectCell?

неправильно выразился
можна вводить буквы а нельзя вводить числа.
что то вроде как для едита:
if (key<'0')or(key>'9') then .....

clickmaker (2007-05-04 13:31:00) [10]
OnSelectCell?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »