Автоматическое завершение вводимой фразы для TComboBoxDelphi , Компоненты и Классы , СпискиАвтоматическое завершение вводимой фразы для TComboBox
Оформил: DeeCo { Ever wondered how to make a combobox with autocomplete like the one in the explorer? The trick is in the CB_FINDSTRING API call. } 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; Статья Автоматическое завершение вводимой фразы для TComboBox раздела Компоненты и Классы Списки может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |