procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then //mbRight, mbMiddle сответственно...
begin
ShowMessage('Нажата левая кнопка');
end;
end;
События мыши
Люди как обработать нажатия левой и правой клавишь мыши ????
За пример обработчика был бы благодарен....
За пример обработчика был бы благодарен....