怎么判断鼠标左右键

Question

如题if Button.mbRight=true then
不能这样写我想知道怎么写求知没分了

Answer 1

procedure TMain_F.GridUserInfoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  begin
    if Button = mbRight then
    begin
      TStringGridEx(Sender).OnMouseDown   :=   nil;
      TStringGridEx(Sender).MouseDown(mbLeft,   Shift,   X,   Y);
      TStringGridEx(Sender).OnMouseDown   :=   GridUserInfoMouseDown;
    end;
  end;
end;

Answer 2

mouseDown消息的参数里有相关信息可以判断是左右键的

Answer 3

OnMouseDown事件的Button: TMouseButton就是标识是鼠标左右键的，它有三个取值：TMouseButton = (mbLeft, mbRight, mbMiddle)。

Answer 4

要靠消息
你那种写法，就像.net的写法