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

← →
Oleg_teacher © (2007-05-04 13:14) [0]

Как можно не дать возможность вводить числа в одну (например) 3 колонку стринггрида?

← →
clickmaker © (2007-05-04 13:31) [1]

OnSelectCell?

← →
Oleg_teacher © (2007-05-04 13:40) [2]

> OnSelectCell?

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

← →
Elen © (2007-05-04 14:04) [3]

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

Видимо так :

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

← →
MBo © (2007-05-04 14:06) [4]

OnGetEditMask

← →
Oleg_teacher © (2007-05-04 14:09) [5]

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

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

← →
Oleg_teacher © (2007-05-04 14:11) [6]

> OnGetEditMask

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

← →
MBo © (2007-05-04 14:13) [7]

что-нибудь подобное:
if ACol = 3 then
Value := "llllllllll"

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

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

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

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

Вопрос по Стринггриде Найти похожие ветки