|
Вопрос # 6 009/ вопрос открыт / |
|
Здравствуйте!
Как сделать/есть ли такой компонент:
edit-поле как в поисковых системах, в котором при вводе введённое отображается ярким шрифтом, а подстановка (по запросу из базы, списка) дописывается более бледным.
 |
Вопрос задал: Фамилия Имя Отчество (статус: Посетитель)
Вопрос отправлен: 17 марта 2012, 14:45
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: ANBsoft
Здравствуйте, Фамилия Имя Отчество!
А чем обычный TEdit не устраивает?
Что-то вроде (кусок кода из своего проекта):
procedure TFormNewTowar.Edit1Change(Sender: TObject);
Var n:Integer;
begin
QTowar.Locate('Name',Edit1.Text,[loCaseInsensitive,loPartialKey]);
if (QTowar.RecordCount>0) then begin
if (LastKey<>8) and (LastKey<>46) and (Pos(Edit1.Text,QTowarName.AsString)=1) then begin
n:=Length(Edit1.Text);
Edit1.Text:=QTowarName.AsString;
Edit1.SelStart:=n;
Edit1.SelLength:=Length(Edit1.Text)-n;
end;
end;
end;
 |
Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 18 марта 2012, 10:19
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 18 марта 2012, 21:37; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 18 марта 2012, 09:51 [#1]:
Я могу написать такой компонент.
Сколько пива поставишь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ANBsoft (статус: Студент), 18 марта 2012, 10:22 [#2]:
Еще добавить
procedure TFormNewTowar.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
LastKey:=Key;
end;
|
|
bugmenot (статус: 3-ий класс), 18 марта 2012, 21:37 [#3]:
TEdit совершенно для этого дела не подходит, проще взять TRichEdit c WantsReturn = False
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
