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

Вниз

Где взять combobox c историей   Найти похожие ветки 

 
AlexR_R   (2002-01-22 18:19) [3]

Во-первых он не стандартный. Если начинаешь что-то писать, то снизу появляется список, который включает только те адреса, которые начинаются с введенных букв. То что выпадает, даче не часть comboboxa. По-крайней мере ее можно уменьшить/увеличить
за правый нижний угол.

А во- вторых меня устроил бы и стандартный, только как сделать
чтоб в списке были только отфильтрованные items.

Я сейчас попробовал на OnChange заполнять список по новому, получается жутко криво.

Код примерно такой



procedure TFrame3.ResetHist;
var i : integer;
s : String;
begin
ComboBox1.Items.BeginUpdate;
try
s := ComboBox1.Text;
ComboBox1.Items.Clear;
for i := 0 to Items.Count - 1 do //Items -- это список всех строк
if Pos(s, Items.Strings[i]) = 1 then
ComboBox1.Items.Add(Items.Strings[i]);
finally
ComboBox1.Items.EndUpdate;
ComboBox1.DroppedDown := True;
end;
end;


Кривизна в том, что исчезает мышь!
И еще OnChange возникает когда что-то выбрали,
соответственно после этого список выпадает только
с одним итемом. Но это наверно еще как-то можно побороть.




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

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

Наверх





Память: 0.44 MB
Время: 0.004 c
1-18831
vopros
2002-01-21 16:03
2002.02.07
Календарь компонента


1-18874
Satrap
2002-01-23 09:54
2002.02.07
Наивный вопрос о св-ве Tag


7-19015
SD
2001-10-30 13:57
2002.02.07
Что значит частота отцифровки звука 11025 Гц


3-18751
NLO
2002-01-11 12:35
2002.02.07
BLOB или ...


7-19006
AgentZ
2001-11-02 17:29
2002.02.07
Люди! СРОЧНО!!! Как под Виндой работать с датчиками температуры!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский