Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
ВнизОбработчик 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c