Запрет ввода с клавиатуры букв

[Omedus]

Я пишу программу и мне понадобилось запретить ввод с клавиатуры всех букв и символов (кроме запятой), чтобы вводились лишь цифры. Так же мне нужно чтобы при вводе к примеру запятой: "," - счётчик нажатия на эту клавишу увеличивался. Помогите пожалуйста мне с этим!

[Stilet]

Если в компонентах, то рули события OnKeyPress или OnKeyDown
Проверяй если Key<>нужному символу то Key:=0

[bill]

Например в edit-процедура keydоwn- смотришь какая клавиша была нажата:

if key=а then edit1.text:=edit1.text+key else if key=n then q:=q+1;

где а-номер цифры,n-номер запятой. И а и н -номера клавиш в таблице аски кодов. В общем смотри вложение.

[Omedus]

Большое спасибо за помощь)

[JTG]

TMaskEdit не подойдёт?

[mihali4]

Все просто:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',',']) then
key:=Chr(0);
end;

[Баламут]

Сообщение от mihali4

Все просто:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',DecimalSeparator, #8]) then
key:=Chr(0);
end;

Думаю так будет вернее, если я правильно уловил мысль, конечно

[mihali4]

Сообщение от Omedus

Я пишу программу и мне понадобилось запретить ввод с клавиатуры всех букв и символов (кроме запятой), чтобы вводились лишь цифры.

Я человек военный. Сказано - запятая, значит запятая...

[FaTaL]

Вот например так можно со счетчиком как просил.
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
x:integer;
begin
x:=StrToInt(label1.Caption);
case key of
'0'..'9': begin
x:=x+1;
label1.Caption:=IntToStr(x);
end;
',': begin
x:=x+1;
label1.Caption:=IntToStr(x);
end;
#8: begin
x:=x-1;
label1.Caption:=IntToStr(x);
end;
else
Key:=Chr(0);
end;
end;

Можно конечно было упростить, но с похмура не охото мозги напрягать

Исходник во вложении!

[Dj_DeVaIs]

народ а без KeyPress это можно сделать как нибудь????