| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ComboBox? [D5, Win95/98]

ray_wagner ©   (2002-02-08 11:56:00) 

Подскажите, как сделать чтобы текст в Сомбобоксе, автоматически подставлялся в зависимости от первых набранных букв?

---

Елена   (2002-02-11 06:33:00) [1]

MBo, Вы - Мастер списков (и не только списков)!

---

Victor   (2002-02-09 10:28:00) [2]

а можно проще!!!
поставить таймер и в нём задать
if ComboBox1.text="Ра"then
begin
ComboBox1.text:="Работает";
end;
Проще я думаю некуда!!!!!!!!!

---

MBo   (2002-02-08 12:47:00) [3]

var
LastKey:Word;

...


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
LastKey:=Key;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
Var
Srch : String;
ix : Integer;
Begin
Srch := combobox1.Text;
if LastKey = $08 then
Begin
LastKey := 0;
Exit;
end;
LastKey := 0;
ix := combobox1.Perform(CB_FINDSTRING,-1,LongInt(PChar(Srch)));
if ix > CB_ERR then
Begin
combobox1.ItemIndex := ix;
combobox1.SelStart := Length(Srch);
combobox1.SelLength := (Length(combobox1.Text) - Length(Srch));
end;
end;

© Simon Grossenbacher

---

Наверх