Форум: "Базы";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];
Вниз
Автозаполнение! Найти похожие ветки
← →
Sacred (2003-11-30 00:28) [0]Здрям всем умельцам!
У меня вот такая проблема нужно сделать автозаполнение Едита, думаю все знаю что это такое, то есть при вводе одной буквы в таблице ищеться соотвествие и подставляеться в поле Едита, да так что первая введеная буква не выделена а весь остальной текст выделен...
вот мое решение...
на OnKeyUp Едита написано...
if (key>47) and (key<91) then
qryAuto.Close;
qryAuto.SQL.Clear;
qryAuto.SQL.Add("SELECT S_NAME from STUDENTS");
qryAuto.SQL.Add("GROUP BY S_NAME");
qryAuto.open;
if qryAuto.Locate("S_NAME", edAddStudents.text, [loCaseInsensitive,loPartialKey])
then begin
len1:=length(edAddStudents.text);
edAddStudents.text := qryAuto.fieldbyname("S_NAME").AsString;
edAddStudents.selstart:=len1;
edAddStudents.sellength:=length(text)-len1;
end;
Только есть небольшой глюк, после того как подставлен текст и мне это не подходит, я не могу его БекСпейсом удалить...
может кто то этим занимался и знает другой способ, а может есть компнентик какой то?
Заранее спасибо!
← →
mfender (2003-11-30 09:29) [1]Напиши продолжение:
if Key=VK_BACK then ...
и далюше как там стирать.
← →
mfender (2003-11-30 09:31) [2]Просто back не лежит в указанном тобой диапазоне
(key>47) and (key<91)
← →
Sacred (2003-11-30 12:02) [3]сЫпасЫба! :)
← →
Black King (2003-11-30 22:37) [4]qryAuto.Close;
qryAuto.SQL.Clear;
qryAuto.SQL.Add("SELECT S_NAME from STUDENTS");
qryAuto.SQL.Add("GROUP BY S_NAME");
qryAuto.open;
zachem eto delat" pri nazhatii klavish?
unesi na aktivaciju formi ili jesho kuda
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
