Scroll в ListBox

[kopoba]

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

[Terran]

Установить высоту ListBox'у или установить шрифт текста в ListBox'е.

[kopoba]

А дело в том, что высота листбокса вычисляется в зависимости от количества возвращяемых из запроса строк. Надо, например, чтобы если кол-во таких строк >5, то отобразить прокрутку, иначе вывести как есть.

[kopoba]

Это сделал уже)
Теперь надо, чтобы по нажатию бэкспейс в эдите, листбокс пропадал на 2 секунды, а потом в нем отображались записи на момент истечения этих 2 секунд, потому что из-за перерисовки он сильно мигает.

[kopoba]

А еще как сделать, чтобы листбокс реагировал на нажатие клавиш стрелка вверх-вниз, даже когда фокус на эдите?

[Terran]

Теперь надо, чтобы по нажатию бэкспейс в эдите, листбокс пропадал на 2 секунды, а потом в нем отображались записи на момент истечения этих 2 секунд

Procedure TForm1.Edit1KeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If Key=8 Then
Begin
ListBox1.Visible:=False;
Sleep(2000);
ListBox1.Visible:=True;
End;
End;

Если Sleep(2000); не устроит, то можно использовать задержку Delay.

А еще как сделать, чтобы листбокс реагировал на нажатие клавиш стрелка вверх-вниз, даже когда фокус на эдите?

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.KeyPreview:=True;
End;
Procedure TForm1.FormKeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If Key=38 Then
Begin
SendMessage(ListBox1.Handle,LB_SETCURSEL,ListBox1.ItemIndex-1, 0);
End;
If Key=40 Then
Begin
SendMessage(ListBox1.Handle,LB_SETCURSEL,ListBox1.ItemIndex+1, 0);
End;
End;

Если надо именно дял Edit, то проверяйте в нём клавиши.

[kopoba]

Если Sleep(2000); не устроит, то можно использовать задержку Delay.

Если так сделать, то виснут сразу и листбокс и эдит, а надо, чтобы листбокс пропадал и не мелькал, а в эдите спокойно можно было набирать или редактировать что-нибудь. Я пробовал ставить таймер, но он на 2 секунды листбокс отключает, а через 2 снова прорисовывает, независимо от того, продолжаю я редактировать эдит или нет.
Надо, чтобы если я нажал бэкспейс, таймер отключил листбокс, если за эти 2 секунды опять нажал бэкспейс - таймер по новой начинает отсчитывать 2 секунды. Вот.

[Terran]

Надо, чтобы если я нажал бэкспейс, таймер отключил листбокс, если за эти 2 секунды опять нажал бэкспейс - таймер по новой начинает отсчитывать 2 секунды.

Возьмите код с поста №6 и вместо Sleep напишите Delay. Эффект будет такой.
Описание Delay.

Procedure Delay(Ms: Longint);
Var
TheTime: LongInt;
Begin
TheTime:=GetTickCount + Ms;
While GetTickCount < TheTime Do
Application.ProcessMessages;
End;

[kopoba]

Все работает. Спасибо громадное. Я напишу вас в списке литературы к курсовику.