| Цитата(Poseidon @ 4.4.2014, 21:38) | Цитата(MrDmitry @ 4.4.2014, 16:07  ) | | Вы не поняли что я хочу. |
| Код |
procedure TForm1.ComboBoxKeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
Found: Boolean;
begin
Found := False;
for i := 0 to ComboBox.Items.Count-1 do
if ComboBox.Items[i].StartsWith(ComboBox.Text + Key) then
begin
Found := True;
Break;
end;
if not Found then
Key := #0;
end;
|
Только не забудь предусмотреть дополнительную обработку нужных клавиш (BackSpace и т.п.) |
У меня была не удачная реализация )) По моей логике должно было происходить так.
В list заносятся все значения от комбобокса в которых нашлись совпадения с введенной стройкой, соответственно если list не пустой, то продолжаем ввод, если пустой, то затираем последний введенный символ(не позволяем вводить новый) но вот логика компилятора(да и вообще логика) со мной не согласились ))
Ваш код работает, но наверное после того как я его не много переделал под себя появился не больший глюк, 1 символ вводится нормально, а во последующие приходится вводить 2 раза. Например я ввел "П" потом ввожу"р" и ни чего, ввожу еще раз "р" вводится.
| Код |
Function Tmain.FilterComboList(Combo: TComboBox; Key: Char):boolean;
var
i: Integer;
begin
result := False;
for i := 0 to Combo.Items.Count-1 do
if Combo.Items[i].StartsWith(Combo.Text + Key) then
begin
result := True;
Break;
end;
end;
|
вызов
| Код |
procedure Taddclient.installmentKeyPress(Sender: TObject; var Key: Char);
begin
if not FilterComboList(installment, Key) then
Key := #0;
end;
|
|
