在OnMouseDown中对Button参数进行判断,如下:procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case Button of mbLeft:ShowMessage('The button you pressed was Left'); mbMiddle:ShowMessage('The button you pressed was Middle'); mbRight:ShowMessage('The button you pressed was Right'); end; end;
Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbLeft:ShowMessage('The button you pressed was Left');
mbMiddle:ShowMessage('The button you pressed was Middle');
mbRight:ShowMessage('The button you pressed was Right');
end;
end;