ComboBox и MaxLength

← →
Inan61 (2003-03-12 22:03) [0]

Как в ComboBox запретить ввод символов больше нормы, как реализовано у TEdit с помощью MaxLength? Необходимо запретить ввод более 10 символов в ComboBox. Как реализовать?

← →
Gorik © (2003-03-12 22:11) [1]

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) < 32 then Exit;
if Length(ComboBox1.Text) >= 10 then Key := #0;
end;

← →
Inan61 (2003-03-13 21:32) [2]

> Gorik © (12.03.03 22:11)

Большое спасибо. Всё гениальное - просто!

> Inan61 (12.03.03 22:03)
> Как в ComboBox запретить ввод символов больше нормы, как
> реализовано у TEdit с помощью MaxLength? Необходимо запретить
> ввод более 10 символов в ComboBox. Как реализовать?

Если посмотреть внимательно, то можно обнаружить у TComboBox аналогичное свойство - MaxLength.

Удачи.

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