Форум: "Базы";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
ВнизХм... Фильтр Найти похожие ветки
← →
Fareader (2002-01-10 15:03) [2]Держи
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
"0".."9", #8{код Backspace},, #13{код Enter}:;
else showmessage("Ашипка!");
end;
end;
Остальные коды добавишь по вкусу
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c