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

Вниз

Интересный момент с TListBox   Найти похожие ветки 

 
Song   (2003-04-17 13:52) [0]

Предыстория такова:
у меня выводится список данных для выбора пользователем в обычный TListBox. Это список улиц. Меня попросили сделать поиск по первой букве, что бы не выбирать нужную улицу из длиннющего списка, что я и сделал. Но на тот момент я совершенно забыл что у TListBox есть AutoComplete и начал изобретать велосипед, а именно:

procedure TNewSp1Form.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Var S: String;
begin
S:=Chr(Key);
TListBox(Sender).Perfrom(LB_SELECTSTRING,-1,Integer(PChar(S)));
end;


Этот код исправно работает, и делает что надо: нажимаешь букву "С" он прыгает к первой попавшейся улице, название которой начинаетя на "С". Нажимаешь на "О" - прыгает на улицу, которая начинается на "О".
Но выяснился очень интересный момент: когда нажимаешь кнопки быстро, он ищет по всему вхождению т.е. также как это делает AutoComplete. Вопрос: почему? Переменная S - локальная и в неё даётся только один символ от нажатой Key.


 
Song   (2003-04-17 19:35) [1]

Up!


 
Songoku   (2003-04-17 20:05) [2]

> Song ©

Возможно Winodows был очень хитро сделан.
И наверное кагда ты посылаешь несколько раз LB_SELECTSTRING сообщение в виде Char в ListBox, и промежуток между нажатиями очень мал. То тогда Windows собирает из них строку и ищет её в ListBox"e. По другому я деже себе придставить не магу!!!



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

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

Наверх





Память: 0.44 MB
Время: 0.009 c
1-624
AST
2003-04-17 17:22
2003.05.01
ListView Save и Load..?


1-626
anbezr
2003-04-19 13:23
2003.05.01
Вызов метода класса


3-405
Begginer
2003-04-11 01:40
2003.05.01
Как проверить при добавлении уникальность поля


3-431
gary5555
2003-04-12 15:25
2003.05.01
Как сделать неизменной нумерацию строк???


6-669
Urmat
2003-03-03 07:28
2003.05.01
Работа WinInet API





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