Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизПомогите пожалуйста чайнику Найти похожие ветки
← →
slivka (2003-11-01 00:43) [0]Вопрос у меня наверное глупый, но как с этоим справится незнаю.
Вобщем такая проблема:
procedure TForm1.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if (key<"0") or (key>"9") then else exit ;
if (key<"A") or (key>"F") then else exit ;
if (key<"a") or (key>"f") then else exit ;
if (key="backspase") then exit;
begin
key := #0;
showMessage ("Неправильный формат ввода");
end;
Нужно чтобы клавиша "backspase" выполняла свою функцию. Может как нибудь по другому нужно записать?
Что нибудь типа $* или #* ?
← →
Adder (2003-11-01 00:56) [1]if (key=VK_BACK) then exit;
или
if (key=#8) then exit;
ps Правильно оформляй заголовок, ветки с подобными бессодержательными заголовками ("помогите" и т.п.) обычно удаляются
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.04 c