Нажатие клавишь мыши

[L_M]

Народ, помогите! Как создать обработчики событий левая и правая клавиши мыши отдельно? Как вообще разделить эти клавиши? Для клика по форме(использую уже MouseDown-по задумке прав. клавиша). Спасибо.

[Карась]

Да нет, по этой ссылке какие-то бредовые измышления по поводу менюшек, а человеку нужно просто:

Код:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
Color:=clWhite;
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
Color:=clGray;
end;
В этом примере - пока вы держите нажатой правую кнопку мышки на Button2, цвет формы будет белым, как только отпустите - станет серым...

Должно быть понятно....

[mihali4]

Попробую еше попроще (по-преподавательски ):

MouseDown(... Button: TMouseButton;

Видите - тут есть параметр Button - он-то как раз и определяет, какую кнопку мышки вы нажали...
Если вы переборете свою лень и загляните в хэлп Дельфи (всего-то и нужно - поставить курсор на TMouseButton и заставить себя нажать F1), то узнаете, что оказывается, можно не только правую кнопу определить, но и (страшно сказать!) - даже среднюю:
TMouseButton = (mbLeft, mbRight, mbMiddle);