方法一：（form可以换成其它的控件）。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i:integer;
begin
i:=0;
if ssLeft in Shift then//表示按下左键
i:=i+1;
if ssRight in Shift then i:=i+2;
if ssMiddle in Shift then i:=i+4;
edit1.Text :=inttostr(i);
end;
方法二：
截获WM_MBUTTONDOWN 消息。
msg.wparam=MK_LBUTTON表示按下左键。
