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




Вниз

ComboBox? 


ray_wagner   (2002-02-08 11:56) [0]

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



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

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



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

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



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

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




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




Наверх





Память: 0.72 MB
Время: 0.014 c
4-90716           NetBreaker666         2002-01-02 14:09  2002.02.28  
Каким образом отключить курсор мышки ?


3-90483           Леша                  2002-02-04 05:26  2002.02.28  
Подскажите как определить время запроса в MSSQL с точность до миллисекунды


1-90570           Tiny                  2002-02-11 14:30  2002.02.28  
Как динамически добавить Series в TChart ?


4-90700           Снежок                2001-12-29 17:02  2002.02.28  
Winlogon notification package на Delphi


7-90687           Andry                 2001-11-17 21:12  2002.02.28  
Результат работы DOS программы.