Програмно раскрыть список DBLookup`а и наоборот запрет скролинга

← →
korvin © (2003-03-29 07:53) [0]

Здравствуйте, уважаемые мастера. Когдато я задавал подобный вопрос, но действенного ответа не нашлось.

Собственно вопроса 2:

1.Как, например, по комбинации клавиш раскрыть список DBLookup`a
2.Как запретить перемещение по списку DBLookup`a с клавиатуры.
(перехват клавиш - НЕ СРАБАТЫВАЕТ).

За помощь сзаранее благодарен.

← →
ЮЮ © (2003-03-29 08:59) [1]

>1.Как, например, по комбинации клавиш раскрыть список DBLookup`a
Например, на <Ctrl> + <Enter> :

procedure TForm1.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Key = VK_RETURN) then
TDBLookupComboBox(Sender).DropDown;
end;

>2.Как запретить перемещение по списку DBLookup`a с клавиатуры.
(перехват клавиш - НЕ СРАБАТЫВАЕТ).

Странно, написал это - и клавиши не cрабатывают :

procedure TForm1.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;

Програмно раскрыть список DBLookup`а и наоборот запрет скролинга Найти похожие ветки