Програмно раскрыть список DBLookup`а и наоборот запрет скролинга [D6, IB6.x]
korvin © (2003-03-29 07:53:00)
Здравствуйте, уважаемые мастера. Когдато я задавал подобный
вопрос, но действенного ответа не нашлось.
Собственно вопроса 2:
1.Как, например, по комбинации клавиш раскрыть список
DBLookup`a
2.Как запретить перемещение по списку DBLookup`a с
клавиатуры.
(перехват клавиш - НЕ СРАБАТЫВАЕТ).
За помощь сзаранее благодарен.
ЮЮ (2003-03-29 08:59:00) [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;
Наверх 
ЧАТ |
Орешник |
|
