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

Вниз

ComboBox?   Найти похожие ветки 

← →
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

---

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

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

Наверх

Память: 0.43 MB
Время: 0.004 c