Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

ReadOnly в ComboBox и ещё пара вопросов   Найти похожие ветки 

 
INCOGNITO ©   (2003-06-25 04:37) [0]

Ув. программисты.
Посоветуйте, как выкрутиться. Использую компонент ComboBox, но в нем нет св-ва ReadOnly. Как запретить пользователю изменять значения ComboBox-a? Или может есть какой другой компонент?

И ещё, как установить запрет на ввод любых символов, кроме цифр, в TEdit?

Заранее спасибо.


 
Babay ©   (2003-06-25 04:52) [1]

Для комбо смотри свойство Style
Для эдит можно обрабатывать onKeyPress


 
Спрашивающий_   (2003-06-25 04:54) [2]

Можно и так
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If ComboBox1.Focused Then Key:=#0;
If Edit1.Focused Then If not (Key in["0".."9",DecimalSeparator,#8]) Then Key:=#0;
end;
Вставку отдельно обрабатывать нужно


 
INCOGNITO ©   (2003-06-25 04:55) [3]

C комбо помогло. Спасибо!
А седитом я так и хотел, новсёравноне знаю что делать.
procedure TfmMain.edTrackNumberKeyPress(Sender: TObject; var Key: Char);
begin
if (key<>#48)and(key<>#49)and
(key<>#50)and(key<>#51)and
(key<>#52)and(key<>#53)and
(key<>#54)and(key<>#55)and
(key<>#56)and(key<>#57)then
begin
// ЧЕГО СЮДА ВСТАВЛЯТЬ?
end;
end;


 
INCOGNITO ©   (2003-06-25 04:57) [4]

Всё! Сасибо всем!
Проблемма решена! Key:=#0


 
Song ©   (2003-06-25 08:22) [5]

TComboBox.Style:=CsDropDownList;



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
14-20284
NVO
2003-06-19 08:00
2003.07.07
Передача данных из таблиц с Lookup полями из COM+ в приложение


3-20006
ray
2003-06-14 11:36
2003.07.07
DbGrid???


1-20083
Delphin
2003-06-23 12:31
2003.07.07
Ошибка записи в реестр


11-20030
2Nat
2002-10-28 17:34
2003.07.07
Просмотр значений строк списка при отладке


1-20162
Oleon
2003-06-25 12:26
2003.07.07
Здраствуйте. Как отчет из FastReport записать в Excel. Спасибо.