左右开弓怎么响应？??

Question

鼠标左键右键同时按下去，button怎么响应？？

Answer 1

应该说是button怎么样才知道是同时按下2键？？
在什么事件里面写？

Answer 2

var
  KeySet : set of TMouseButton;procedure Txxx.MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  KeySet := KeySet - [Button];
end;procedure Txxx.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  KeySet := KeySet + [Button];
  if KeySet = [mbLeft, mbRight] then
    //就是这里了
    ;
end;