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

Вниз

Обработчик OnKeyDown.   Найти похожие ветки 

← →
Ptr   (2003-04-18 13:25) [0]

Помогите советом pls!
Надо разрешить ввод только цифр в ComboBox
Написал код:

procedure TForm.ComboBox1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
Case Key of
VK_RETURN:
begin
try
QRPreview.Zoom := StrToInt((sender as TComboBox).Text);
except
on E: Exception do ApplicationShowException(E);
end;
end;
1..57,
96..105: ;
else
begin
Key := 0;
// abort;
end;
end;

Но буквенные симвлы все равно вводятся
П О Ч Е М У ???

---

← →
Zz_   (2003-04-18 13:28) [1]

Исрользуй KeyPress

---

← →
Skier ©   (2003-04-18 13:32) [2]

Не устроит ?


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ["0".."9"] then begin
//your code goes here...
end //if
else begin
Key := #0;
Beep;
end; //else
end;


---

← →
Dms   (2003-04-18 13:34) [3]

> begin
> Key := 0;
> // abort;

это ни к чему не приведет

---

← →
Ptr   (2003-04-18 13:35) [4]

Большое всем спасибо !!!

---

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

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

Наверх

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