|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#6
13.08.2011, 19:57
|
|||
|
|||
Все, нашел как убрать пиканье, нужно добавить процедуру
Код:
procedure TForm1.OnKeyPressCombobox1(Sender: TObject; var Key: Char); begin if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then Key := #0; end; |
Древовидный вид