delphi2006 中如何判别鼠标左右键

在button的onmousedown事件下，

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

case button of

mbleft :form1.close;//按下左键时你想要实现的功能

mbright :form2.show;//按下右键时你想要实现的功能

end;

end;