Key=VK_LBUTTON

← →
Belkova (2004-02-11 11:06) [0]

Мастера Delphi. Подскажите, пожалуйста, Выполняю
procedure TFDir.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_LBUTTON then {...}
end;
не работает, аналогично с Key=VK_RBUTTON с другими виртуальными ключами все нормально. Что не так ?

← →
Romkin (2004-02-11 11:09) [1]

А в shift заглянуть? Вообще-то для мышки есть OnMouseDown

← →
Плохиш (2004-02-11 11:11) [2]

OnKeyDown не реагирует на нажатие мыши, он не для этого преднозначен

PS. F1-рулез форева

← →
Vovchik_A (2004-02-11 11:20) [3]

На OnMouseDown пишешь

If Button=mbLeft ну и дальше делаешь чего хочешь

← →
Ega23 (2004-02-11 11:21) [4]

2Romkin ©
2Плохиш
А где вы увидели, что это про мышь?
И в ДБгриде действительно была какая-то байда с левой/правой стрелкой курсора.

← →
Belkova (2004-02-11 11:26) [5]

Спасибо. Все получилось.

Key=VK_LBUTTON Найти похожие ветки