Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.09.06;
Скачать: [xml.tar.bz2];

Вниз

Как сделать Combobox и DateTimePicker только readonly   Найти похожие ветки 

 
Incognito   (2009-07-04 17:01) [0]

Как сделать Combobox и DateTimePicker только readonly?
Нарыл в нете вариант такого плана:
SendMessage(GetWindow(ComboBox1.Handle,GW_CHILD), EM_SETREADONLY, 1, 0);
Но при этом да с клавы букквы не вводяться но BackSpase работает. Как его сделать вооще readonly?
Варифант с csDropDownList непредлогать. Ибо неподходит.


 
Incognito   (2009-07-04 17:12) [1]

Сам спросил, сам ответил. Решил сделать так :
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=chr(0);
end;


 
Alexey   (2009-07-04 17:12) [2]

style:=csDropDownList


 
Incognito   (2009-07-04 17:15) [3]


> Alexey   (04.07.09 17:12) [2]


"Варифант с csDropDownList непредлогать. Ибо неподходит."

Не и всетаки как сделать? потому как если по ComboBox1KeyPress я клавиатуру отрезаю, но как еще и запретить выпадающее меню?


 
Alexey   (2009-07-04 17:18) [4]

Дык, а почему не подходит? Если не секрет?


 
Anatoly Podgoretsky ©   (2009-07-04 17:20) [5]

> Incognito  (04.07.2009 17:15:03)  [3]

Оба компонента с успехом заменяют TLabel без извращений.


 
Incognito   (2009-07-04 17:27) [6]


> Anatoly Podgoretsky ©   (04.07.09 17:20) [5]


Если бы было все так просто. ТО да я бы и не мучился. И всеже как сделать
DateTimePicker только на чтение полностью?


 
DVM ©   (2009-07-04 17:32) [7]


> Incognito  

Enabled := false и все.
Контрол должен быть отмечен как недоступный иначе возможно непонимание со стороны пользователя.


 
Incognito   (2009-07-04 17:35) [8]

Да еслиб было все так просто, я бы не мучился. Enabled := false и все. Ну ведь можно как-то нормально сделать. Хватит предлогать простые решения


 
Claus   (2009-07-04 17:42) [9]


> Да еслиб было все так просто

А в чем, собственно, сложность?


 
Incognito   (2009-07-04 17:52) [10]

Да при том что ничего не видно юзеру когда  Enabled := false а касаемо цветовой гаммы ПО это желание заказчика. Поэтому и приходится изголяться. и касаемо


> Контрол должен быть отмечен как недоступный иначе возможно
> непонимание со стороны пользователя.


Это тоже пожелание заказчика.


 
DVM ©   (2009-07-04 17:55) [11]


> Incognito


> Хватит предлогать простые решения

Тогда переопределяй оконную процедуру контрола и реагируй по-своему на нужные сообщения. Достаточно не просто?


 
Claus   (2009-07-04 18:14) [12]

>Incognito   (04.07.09 17:01)

Лучшее решение, на мой взгляд, предложено в Anatoly Podgoretsky ©   (04.07.09 17:20) [5] , ну, а если тебя в чем то не устраивают цветовые решения, то вместо TLabel используй предварительно подготовленные TImage.
Думаю, что ты, ну и заказчик (на которого ты слишком часто ссылаешься) оба будете удовлетворены
:)


 
KilkennyCat ©   (2009-07-04 20:50) [13]


> о вместо TLabel используй предварительно подготовленные
> TImage.

Это излишне. Лэйбла вполне позволяет раскрашивать себя как угодно. Хоть каждую букву отдельно.



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

Форум: "Начинающим";
Текущий архив: 2009.09.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.005 c
15-1246536336
@!!ex
2009-07-02 16:05
2009.09.06
Сторожа сторожат хозяев


15-1245256088
Павел Калугин
2009-06-17 20:28
2009.09.06
Ура, я инжинер.


2-1246861483
@!!ex
2009-07-06 10:24
2009.09.06
Как представить число в виде трех float чисел.


2-1246361382
IrinaIrina
2009-06-30 15:29
2009.09.06
StringGrid записать в таблицу SQL


15-1246624006
Бисовецкий Андрей
2009-07-03 16:26
2009.09.06
Помогите найти правильное решение баз данных. ПОМОГИТЕ СРОЧНО!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский