Скачать: CL | DM;

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

← →
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"

---

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

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

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

---

← →
Oleg_teacher ©   (2007-05-04 14:35) [9]

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

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

---

← →
clickmaker ©   (2007-05-04 15:33) [10]

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c